NASA Technical Memorandum 83180 


NASA-TM-83180 19840020448 


An Implementation of the Programming 
Structural Synthesis System (PROSSS) 







NASA Technical Memorandum 83180 


An Implementation of the Programming 
Structural Synthesis System (PROSSS) 


James L. Rogers, Jr., and Jaroslaw Sobieszczanski-Sobieski 
Langley Research Center 
Hampton, Virginia 

Rama B. Bhat 

The George Washington University 
Joint Institute for Advancement of Flight Sciences 
Langley Research Center 
Hampton, Virginia 


(W\SA 

National Aeronautics 
and Space Administration 

Scientific and Technical 
Information Branch 


1981 




CONTENTS 


TABLES vl 

FIGURES Vi 

1 INTRODUCTION 1 

2 OVERVIEW OF THIS IMPLEMENTATION OF PROSSS 1 

3 STEPS FOR IMPLEMENTING PROSSS 3 

4 COMPONENTS OF THE SYSTEM 7 

4.1 Option Files 7 

4.2 Procedure Files 7 

4.2.1 Nonrepeatable Model Definition: PRCNRPT 8 

4.2.2 Initialization: PRCINIT, PRCGETF 9 

4.2.3 Front Processing: PRCFPXX 10 

4.2.4 Optimization: PRCOPTM 10 

4.2.5 Analysis: PRCANAL 10 

4.2.6 Analytical Gradient Calculations: PRCGRDS 11 

4.2.7 End Processing: PRCEPXX 11 

4.2.8 Printing Ouput: PRCEND 11 

4.3 Program and Subroutine Files 11 

4.3.1 Analysis Program: SPAR 13 

4. 3. 1.1 Overall characteristics 13 

4. 3. 1.2 Analytical calculation of gradients 15 

4. 3. 1.3 SPAR data storage and retrieval 15 

4.3.2 Optimization Program: CONMIN 15 

4. 3. 2.1 Overall characteristics 15 

4. 3.2.2 Program: CONMSI 16 

4. 3. 2. 3 Program: CONMS2 17 

4.3.3 Front Processor Program: FPROC 18 

4.3.4 End Processor Program: EPROC 19 

4.3.5 Control Programs 19 

4. 3. 5.1 Program to compute the finite difference 

gradients: EVALS 20 

4. 3. 5. 2 Fully stressed design (FSD) program: FSDS 20 

4. 3. 5. 3 Program to select the active or violated 

constraints: SELECTS 21 

4. 3. 5. 4 Program to rewrite the design variables 

to a different file: RERITES 21 

4.3.6 Gradient Programs 22 

4. 3. 6.1 Program to create input file for computing 

gradients in the analysis program in the 
nonrepeatable part: BLDELDS 22 

4. 3. 6. 2 Program to create input file for computing 

gradients in the analysis program in the 

repeatable part: GNGRDRS 22 

4. 3. 6. 3 Program to convert forces and moments and the 

derivatives of forces and moments to stresses 

and stress derivatives: DRVSTRS 23 


iii 



4.4 Data Files 24 

4.4.1 Input Data Files 26 

4.4.2 Model Data Files 27 

4.4.3 Transfer Data Files 27 

4.4.4 Edit Data Files 28 

4.4.5 Saved Data Files 29 

5 SAMPLE EXECUTIONS OF PROSSS 29 

APPENDIX A - SAMPLE SETUP OF PROSSS FOR A SPECIFIC OPTION 31 

PROSCRS 31 

SAMPLE INPUT FILES fOR OPTIMIZATION OPTIONS 33 

CONTROL CARD FILE CREATED BY PROSCRB 34 

EDIT FILE CREATED BY PROSCRB 34 

APPENDIX B - OPTION FILES 35 

Option 1.1 35 

Option 1.2 37 

Option 1.3 41 

Option 2.2 43 

Option 2.3 45 

APPENDIX C - PROCEDURE FILES 47 

PRCNRPT 47 

PRCINIT 48 

PRCGETF 50 

PRCFPXX 51 

PRCOPTM 52 

PRCANAL 53 

PRCGRDS 54 

PRCEPXX 55 

PRCEND 56 

APPENDIX D - PROGRAM LISTINGS 57 

CONMS1 57 

CONMS2 59 

FPROC 61 

EPROC 63 

EVALS 64 

FSDS 66 

FSDSUBS 68 

SELECTS 70 

RERITES 71 

BLDELDS 72 

GNGRDRS 80 

SUBROUTINE DKDVE2 1 86 

DRVSTRS 88 

SUBROUTINE BMSTRS 93 

APPENDIX E - DATA FILES 96 

INPUT DATA FILES 96 

PCONPAR,CONPAR 96 

PSTART,STARTX 97 

INPT 97 

CNT 98 

iv 



ENDIN 98 

CONS 98 

MODEL DATA FILES 99 

NRRS (nonrepeatable SPAR runstream) 99 

NGRS (repeatable SPAR runstream) 101 

TRANSFER DATA FILES 102 

PCONRST 102 

PCNMNIO,TCNMNIO,CNMNIO(LINKE,LINKF) 110 

BLOCK, BLK Ill 

SPFPOUT 119 

RSOUT (nonrepeatable part) 120 

RSOUT (repeatable part) 125 

EDIT DATA FILES 127 

EDPASS1 127 

EDPASS2 127 

EDIT1 127 

EDIT2 127 

MERGFP 128 

EDGRDS 128 

REFERENCES 129 


V 



TABLES 


I OPTIONS FOR OPTIMIZATION 3 

II PROCEDURE FILES IN PROSSS 8 

III PROGRAM AND SUBROUTINE FILES IN PROSSS 12 

IV SPAR PROCESSORS 14 

V NONREPEATABLE (N) AND REPEATABLE (R) PARTS IN FINITE 

ELEMENT ANALYSIS BASED ON DISPLACEMENT METHOD 15 

VI DATA FILES IN PROSSS 25 

VII COMPARISON OF RESULTS FROM DIFFERENT PROSSS OPTIONS 30 

FIGURES 

1 Basic flow of PROSSS 2 

2 SPAR system organization 13 

3 CONMIN program organization 16 

4 Fuselage model used for testing 29 



1 INTRODUCTION 


Numerous approaches have been documented for combining optimization techniques 
with an analysis capability (e.g. , refs. 1 to 3) . The approach documented in this 
paper is a particular implementation of the method for combining analysis and optimi- 
zation techniques with applications to structures {ref. 4) . This method, called the 
programming structural synthesis system (PROSSS), combines a large, general purpose, 
finite element program for structural analysis, SPAR (ref. 5), with a large, general 
purpose, optimization program, CONMIN (ref. 6) and several, small, problem-dependent 
FORTRAN programs and subroutines which must be written by the user to interface the 
analysis and optimization programs. All of the programs are connected by a network 
of control cards in the standard. Control Data Corporation CYBER Control Language 
(CCL), documented in reference 7. Familiarity with the theory behind this method 
(ref. 4) and with the software (documented in refs. 5 to 7) is a prerequisite for 
understanding the remainder of this document. 

This particular implementation of PROSSS is only the first step in a series of 
implementations. Other implementations are intended to give the user easier access 
to intermediate results and more control over the flow of the problem, as well as a 
capability for interactive modeling and data generation (ref. 8). Another implemen- 
tation includes incorporating PROSSS entirely within the Engineering Analysis 
Language (EAL, ref. 9) computer program to simplify the maintenance, control, and 
data management aspects. 

This paper describes a particular implementation of PROSSS. First, an overview 
is given which explains PROSSS in general with respect to this implementation. The 
second section describes how the input data are prepared. Next, each component of 
the system is explained in detail. These components include options, procedures, 
programs and subroutines, and data files used in this implementation. Finally, an 
example exercise for each option is given to allow the user to anticipate the type of 
results which might be expected. The appendixes contain annotated listings and flow- 
charts to clarify the descriptions of the components of the system presented within 
the body of this paper. 

The purpose of this paper is to demonstrate one method for implementing a flex- 
ible software system combining large, complex programs with control language and 
small, user-supplied, problem- dependent programs. It is not intended to be a self- 
contained user's guide for PROSSS. 

Identification of commercial products in this report is used to adequately 
describe the model. The identification of these commercial products does not con- 
stitute official endorsement, expressed or implied, of such products or manufacturers 
by the National Aeronautics and Space Administration. 


2 OVERVIEW OF THIS IMPLEMENTATION OF PROSSS 


This implementation of the programming structural synthesis system (PROSSS) 
combines a general purpose, finite element computer program for structural analysis 
(SPAR), a state-of-the-art optimization program (CONMIN), and several user-supplied 



problem- dependent computer programs. All of the programs are connected by the stan- 
dard CCL. The results are flexibility of the optimization procedure organization and 
versatility of the formulation of constraints and design variables. 

A flowchart of the analysis-optimization process for this implementation is 
shown in figure 1. The process results in a minimized objective function, typically 



Figure 1.- Basic flow of PROSSS. 


the mass defined in terms of a set of design variables, such as cross-sectional 
dimension of a structural member. This member is subject to a set of constraints 
such that stress must be less than some allowable value. Notice that the analysis 
and optimization programs are executed repeatedly by looping through the system until 
the process is stopped by a user-defined termination criterion. This part of the 
system is referred to as the repeatable part of PROSSS. However, some of the analy- 
sis, such as model definition, need only be done one time and the results saved for 
future use. This analysis is performed outside of the loop and referred to as the 
nonrepeatable part of PROSSS. The user must write some small FORTRAN programs (e.g. , 
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front processor and end processor) to interface between the analysis and optimization 
programs. The front processor converts the design variables output from the opti- 
mizer into a suitable format for input into the analyzer. The end processor 
retrieves the behavior variables (i.e. , stresses or deflections due to loads) from 
the analysis program, evaluates the objective function and constraints, and option- 
ally retrieves and evaluates their gradients. These quantities are output in a 
format suitable for input into the optimizer. These user-supplied programs are 
problem dependent, because they depend primarily upon the finite elements being used 
in the model. 

Five options for organizing optimization procedures by combining nonlinear or 
piecewise linear programming methods with analytical or finite difference gradients 
are shown in table I. Each option is controlled by a complex CCL sequence of com- 
mands. These commands are modularized in the form of procedure files and perform the 


TABLE I.- OPTIONS FOR OPTIMIZATION 



Gradients computed 

Method 

In CONMIN by 

External to CONMIN by 


Finite difference 

Finite difference 

Analytical 

Nonlinear programming 

1.1 

1.2 

1.3 

Piecewise linear 
programming 

N/A 

2.2 

2.3 


functions of executing programs in certain sequences, such as if -test branching, 
looping, and manipulating permanent and temporary files. Each procedure file is 
written using structured programming techniques to aid in readability. 

Although presented in the context of structural analysis, the same system con- 
cept could be used for aerodynamic optimization of a wing, if SPAR were replaced by 
an analyzer with a capability for computational aerodynamics. The system is intended 
to be used in the following three basic ways: 

(1) as a research tool for the development of optimization techniques that will 

interface with an efficient analysis program 

(2) as a research tool for testing new analysis techniques that will interface 

with an efficient optimization program 

(3) as an application tool that can be adapted to a wide range of problem types 


3 STEPS FOR IMPLEMENTING PROSSS 

The user has access to all of the files containing the components of PROSSS 
(except SPAR and CONMIN), so that he can modify its programs, procedure files, and 
flow organization. This capability for component modification makes PROSSS suitable 
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for use as a research test bed. The following step-by-step description explains how 
to start a new implementation using SPAR as the analyzer and CONMIN as the optimizer. 
(Details of the files discussed are given in sec 4. ) 

1. Write a SPAR runstream (see sec 4.4.2) for the entire problem, execute it, 
and verify the results. Save the SPARLA (see sec 4.4.3) as a permanent file. 

2. Divide the SPAR runstream into the nonrepeatable and repeatable parts. The 
nonrepeatable part contains the TAB (ref. 5) and ELD processors while the repeatable 
part contains the rest. Execute the nonrepeatable part and save its SPARLA as a 
permanent file with a different name than the one used in step 1. 

3. Write a front processor and its input file CNMNIO. The input file contains 
the design variables yielding the same structural parameters (behavior variables) as 
those used as SPAR input in step 1. The front processor reads these design variables 
and outputs them in a form suitable for input into the SPAR TAB processor. Execute 
the front processor by using the procedure file PRCFPXX and verify the output file 
SPFPOUT. 

4. Execute the procedure files PRCFPXX and PRCANAL in this order. SPAR output 
should agree with that obtained in step 1. Save the SPARLA from this execution as a 
permanent file with name different from those used in steps 1 and 2. 

5. Write an end processor and its input data file ENDN. The end processor con- 
verts data output by SPAR on SPARLA in step 4 into objective function and constraint 
data for input into CONMIN. Execute the end processor by using the procedure file 
PRCEPXX and the SPARLA from step 4 as input. Verify the results on output file 
CNMNIO. 

6. Execute the procedure files PRCFPXX, PRCANAL, PRCEPXX in this order. Verify 
that the CNMNIO file is the same as that obtained in step 5. 

7. If the gradients are to be computed analytically, perform the following addi- 
tional steps: 

(a) Write input files INPT and, if needed, CONS required by the ^procedure 

file PRCGRDS, and rerun step 2 using these files. 

(b) Execute the procedure file PRCGRDS using the SPARLA saved in step 4, as 

input. Save the SPARED as a permanent file. Verify the SPAR output 
containing the desired gradient values. 

(c) Expand the end processor written in step 5 to handle the gradients 

available in the SPARED saved in step 7(b). Execute the end processor 
and verify its output file CNMNIO to see that its contents are 
augmented by the gradient values. 

(d) Execute the procedure files PRCFPXX, PRCANAL, PRCGRDS, and PRCEPXX in 

this order and verify that file CNMNIO is the same as that obtained in 
step 7(c). 

8. Write an input file PCNPR containing the CONMIN control parameters. Set 
ITMAX = 1 (Maximum iterations = 1 ) . 
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9. Write a file PSTRT containing the starting values of the design variables 
(same as those used in step 3). Save this file as a permanent file. 

10. Select an execution option. 

11. In program CONMS1 or CONMS2 (EVALS and FSDS, if applicable), change the 
dimension statements as required and recompile the program. 

12. Write an input file for PROSCRS to convert the general names in the option 
files (app. A) to specific, problem-dependent names. 

13. Execute PROSCRS and verify that the output file CNMNIO is the same as that 
obtained in step 6 or 7(d). 

14. Relax the ITMAX = 1 restriction in the CONMIN control parameter file 
PCNPR. Proceed with optimization. If option 2.2 or 2.3 (table I) is chosen, allow 
completion of one linear stage and verify its results before continuing. 

15. When the optimization is underway, periodically inspect the CONOUT file for 
acceptability of the direction the process is talcing. 

After step 15 has been completed, only the input data files should be changed 
for a different application to a problem of the same class. In this way, PROSSS is 
executed like a "black box" because PROSSS is set up and debugged for a specific type 
of application. All of its components, except the problem-dependent input data 
files, are protected from unauthorized access. The user thus retains the freedom to 
change input data as he studies a class of problems, but he cannot change the inner 
workings of the system. Such restricted use is desirable in production applications, 
because it facilitates the separation of responsibilities of a support staff special- 
ist from those of the engineer user. 

Using PROSSS as a black box is very simple. The user must create an input file 
PROSSIN for a small program called PROSCRS. (See step 12.) This input file contains 
the specific names and numbers to replace the general names in the option files 
(app. A) to solve a particular problem (see sec 4.1). The first column of names, 
each beginning in column 1 , are the general names and the second column of names 
and numbers, each beginning in column 11, are the specific names and numbers supplied 
by the user. The first name in the input file must be the option number, thereafter 
the order is not important. The following are the general names that are to be 
replaced; 

POPT 

NONREPT 

NRRS 


FUSD 


FSDSUB 


CONMIN 


option number (11, 12, 13, 22, or 23) 

1, if nonrepeatable part to be executed? 0, otherwise 

name of runstream input to SPAR for nonrepeatable part, can be oinitted 
if NONREPT is 0 

1 , if fully stressed design is to be used for optimization program? 

0, otherwise 

file containing fully stressed design subroutines to be appended to 
main program, can be omitted if FUSD is 0 

file containing main program for optimization 
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ENDP1 


file containing end processor program 


FRNT file containing front processor program 

ENDN ' file containing input to end processor 

PCNPR file containing input to optimization program 

PSTRT file containing starting values for design variables 

PCONRST file containing restart values for optimization program, a transfer file 

PCNMNIO file containing data transferred to/from the optimization program 

SAVCOUT file containing cumulative output listing from the optimization program 

NSPARLA SPAR library saved from nonrepeatable part 

NGRS'^ 

or > spar runstream for repeatable part 

RGS J 

FLENGTH field length (octal) required for SPAR execution 

BLK file containing objective function and constraint data, a transfer file 

SAVSPLD SPAR library saved from repeatable part 

CNT file containing testing information for termination criterion 

CONS input file of constants such as the cross-sectional areas of beams 

for user-supplied subroutines to analytically calculate the 
gradients and the front processor 

The following names can be omitted if options 1.3 or 2.3 (use of analytical 
gradients) are not chosen; 

SUBS n, the nximber of subroutines supplied by the user to calculate 

analytical gradients; one subroutine is needed for each element type 
containing more than one design variable 

BINDEPB file containing 2n subroutines supplied by the user for calculating 

analytical gradients ; can be omitted if n = 0 

INPT input file of control parameters for calculating analytical gradients 

Once the input file, PROSSIN, has been created, it is input into the PROSCRS 
program. PROSCRS creates three output files; a file of control cards; a file of 
Text Editor commands (ref. 10) to replace the general names with the specific names; 
and a file of Text Editor commands (ref. 10) to remove unwanted blanks in the preced- 
ing file. The control file is rewound and executed after PROSCRS has completed. The 
control file performs the following four functions: gets the PROSOPT file (see 

sec 4.1) and copies the correct option onto file OPTION; edits the file containing 
edit commands to remove the blanks; edits the OPTION file to change general names 
to specific names; and starts the option executing. 
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The program header card for PROSCRS is as follows; 


PROGRAM PROSCRS (TAPES, TAPE9, TAPEIO, TAPEll) 


where 


TAPES is the input file of general and specific names 
TAPES is the output file of control cards 

TAPEIO is the output file of edit commands to change from general 
names to specific names 

TAPEll is the output file of edit commands to remove blanks 

Listings of PROSCRS, the input files, the control card file, and the edit file also 
are presented in appendix A. 

4 COMPONENTS OF THE SYSTEM 

PROSSS is composed of a system of files consisting of four primary components: 
option files, procedure files, program files, and data files. Each file is explained 
in detail with annotated examples listed in the appendixes. For those files which 
are problem dependent and supplied by the user, the descriptions are given with 
emphasis on the way the files interface with each other. 


4.1 Option Files 

There are five option files in PROSSS (table I): options 1.1, 1.2, 1.3, 2.2, 

and 2.3. Options 1.1, 1.2, and 1.3 use nonlinear mathematical programming, while 
options 2.2 and 2.3 use piecewise linear programming. Option 1.1 uses gradients 
calculated inside CONMIN. Options 1.2 and 2.2 use gradients calculated by the finite 
difference method, while options 1.3 and 2.3 use analytically computed gradients. 

Five procedure files, one for each of the five options, exist on file PROSOPT. These 
procedure files consist of a sequence of control cards in CCL (ref. 7). Listings and 
flowcharts of each option are shown in appendix B. The BEGIN cards in these 
procedure files control the sequence of execution of the procedure files described in 
section 4.2. No option procedures have any key words associated with them. Each 
procedure does, however, have many general names within it. These general names are 
replaced by specific names (using the Text Editor (ref. 10)) before the option begins 
executing. These names are described in detail in sections 4.2 to 4.4, and the 
replacement process was previously explained in section 3. This process was chosen 
over key word substitution because one BEGIN card (ref. 7) would not hold all the 
necessary key words and no continuation card is allowed. 


4.2 Procedure Files 

PROSSS is controlled by nine procedure files, all of which are located on 
a file named PROSPRC. The specific functions performed by the procedures are 
(1) nonrepeatable model definition (PRCNRPT), (2) and (3) initialization (PRCINIT and 
PRCGETF), (4) front processing (PRCFPXX), (5) optimization (PRCOPTM), (6) analysis 
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(PRCANAL), (7) analytical gradient calculation (PRCGRDS), (8) end processing 
(PRCEPXX), and (9) printing output (PRCEND). Each procedure consists of a sequence 
of control cards in CCL (ref. 7) . A procedure is called by a BEGIN statement. 
Commented listings of each of the nine procedure files are shown in appendix C. Each 
procedure begins with a header card containing a list of key words, if needed. Key 
word substitution allows the user to substitute key words in the procedure body with 
parameters specified on the BEGIN statement. Table II provides a quick reference for 
each procedure file by giving the file name, the purpose, and the calling sequence. 

TABLE II.- PROCEDURE FILES IN PROSSS 


File name 

Purpose 

File call command 

PRCNRPT 

Executes nonrepeatable analysis program 

. PROC , PRCNRPT ,NROPT , NRRS , FLX , I , NRLA • 

PRCINIT 

Assembles user supplied programs and 
subroutines 

. PROC , PRCINIT , OP , A , B ,NSUB , C , FSD , FSUB . 

PRCGETF 

Retrieves remainder of files needed for 
execution 

. PROC, PRCGETF, OP, F,E,CN,S, I, C,CT,RS, RGB. 

PRCFPXX 

Executes the front processor 

.PROC, PRCFPXX. 

PRCOPTM 

Executes the optimization program 

. PROC , PRCOPTM , C , D , F . 

PRCANAL 

Executes the repeatable analysis 
program 

. PROC , PRCANAL , NRLA , FLX , S AUELD . 

PRCGRDS 

Creates a runstream for input to the 
analysis program, then executes the 
analysis program and, optionally, a 
post processor to find analytical 
gradients 

. PROC , PRCGRDS , NSUB , SAUELD . 

PRCEPXX 

Executes the end processor 

. PROC , PRCEPXX , BLK . 

PRCEND 



Outputs in^jortant files 

.PROC, PRCEND. 


4.2.1 Nonrepeatable Model Definition: PRCNRPT 

This procedure PRCNRPT creates a SPAR library of the joint and element infor- 
mation for the finite element model (app. C). If analytical gradients are required, 
the derivatives of the stiffness and mass matrices with respect to the design vari- 
ables are also confuted and stored on the library. The procedure header card is as 
follows: 


. PROC , PRCNRPT ,NROPT ,NRRS , FLX , I ,NRLA . 
where PRCNRPT is the name of procedure file, with key words: 


NROPT 

option number 

NRRS 

nonrepeatable SPAR runstream 

FLX 

field length (octal) 
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input file for analyical gradient calculation (see INPT) 


NRLA SPAR library 


4.2.2 Initialization: PRCINIT,PRCGETF 

Two procedure files, PRCINIT and PRCGETF, are used in the initialization 
process. The first, PRCINIT, gets the programs required for a particular option 
(app. C). Some programs must be assembled using various user-supplied main programs 
and/or subroutines, the names of which are passed through the header card. The pro- 
cedure header card is as follows: 

.PROC, PRCINIT, OP, A, B,BB,NSUB,C,FSD,FSUB. 

where PRCINIT is the name of procedure file, with key words: 

OP option number 

A main program for optimization 

B main program for end processor with no gradients 

BB main program for end processor with gradients 

NSUB number of user-supplied subroutines for analytical gradient calculation 

C file containing all user-supplied subroutines for analytical gradient 

calculation. The first NSUB subroutines are combined with program 
GNGRDRS. The second NSUB subroutines are combined with program 
DRVSTRS. Each program is a physical record (not needed if NSUB is 
zero) 

FSD 1, implies fully stressed design is required; 0, implies no fully 

stressed design is required 

FSUB file containing fully stressed design subroutines (not needed if FSD 

is zero) 

The second procedure file PRCGETF, used in the initialization process retrieves 
the remainder of the files required for executing a particular option (app. C). The 
procedure header card is as follows; 

.PROC, PRCGETF, OP, F,E,CN,S, I, C,CT,RS,RGS. 

where PRCGETF is the name of procedure file, with key words: 

OP option number 

F front processor program (see FPROC) 

E input file to end processor (see ENDN) 

CN input file to optimization program (see PCNPR,CONPAR) 
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S input files to optimization program (see PSTRT , STARTX ) 

I input file for analytical gradient calculation (see INPT) 

C input file of constants for analytical gradient calculation (see CONS) 

CT input file of constants for optimization program (see CNT) 

RS SPAR runstream (no gradients, see NGRS) 

RGS SPAR runstream (gradients, see RGS) 

4.2.3 Front Processing: PRCFPXX 

The procedure file PRCFPXX executes the front processor (app. C). The procedure 
header card is as follows; 

.PROC, PRCFPXX. 

where PRCFPXX is the name of procedure file. There are no key words. 

4.2.4 Optimization; PROCOPTM 

The procedure file PRCOPTM executes the optimization program (app. C). The 
procedure header card is as follows; 

. PROC , PRCOPTM , C ,D , F . 

where PROCOPTM is the name of procedure file, with key words: 

C restart data for optimization program (see PCONRST) 

D transfer data to/from optimization program (see PCNMNIO) 

F cumulative output from optimization program (see SAVCOUT) 

4.2.5 Analysis: PRCANAL 

The procedure file PRCANAL merges the output file (SPFPOUT) from the front 
processor into the SPAR runstream file (SPARRS) and executes the SPAR analysis 
program. (See app. C. ) The initial SPAR input and output are saved for later 
listing. The procedure header card is as follows: 

. PROC , PRCANAL , NRLA , FLX , S AVELD . 

where PRCANAL is the name of procedure file, with key words: 

NRLA SPAR library from nonrepeatable part 

FLX field length (octal) 

SAVELD SPAR library for use by end processor 
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4.2.6 Analytical Gradient Calculations: PRCGRDS 

This procedure file, PRCGRDS, creates a SPAR runstream and then uses SPAR and 
a postprocessor (see sec 4. 3. 6. 3) to SPAR to calculate stress derivatives when forces 
and moments and derivatives of forces and moments must be converted to stresses and 
stress derivatives. (See app. C. ) The procedure header card is as follows; 

.PROC , PRCGRDS ,NSUB ,SAVELD. 

where PRCGRDS is the name of procedure file, with key words: 

NSUB number of user-supplied subroutines for analytical gradient 

calculations 

SAVELD SPAR library for use by end processor 


4.2.7 End Processing; PRCEPXX 

This procedure file, PRCEPXX, executes the end processor. (See app. C.) The 
procedure header card is as follows: 

. PROC , PRCEPXX , BLK . 

where PRCEPXX is the name of procedure file, with key word; 

BLK transfer data file (see BLOCK) 


4.2.8 Printing Output; PRCEND 

This procedure file, PRCEND, prints CONMIN and SPAR output files and SPAR run- 
streams. (See app. C. ) The procedure header card is as follows; 

.PROC, PRCEND. 

where PRCEND is the name of procedure file. There are no key words. 


4.3 Program and Subroutine Files 

PROSSS uses the following six types of programs during the analysis-optimization 
process; analysis (SPAR), optimization (CONMIN), front processor (FPROC), end pro- 
cessor (EPROC), control programs, and analytical gradient programs. The analysis 
program SPAR and the CONMIN subroutine library are not given in the appendixes 
because they are standard for the system and are documented in references 5 and 6. 

The user does not have to create either SPAR or the CONMIN subroutine library. 

Sample listings for all other programs, including the main driver program for the 
CONMIN subroutine library, are shown in appendix D. Table III provides a quick 
reference for each of the programs by giving the options and procedures in which the 
program is used, whether or not the program must be created by the user, and a brief 
comment about the function of the program. 
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TABLE III.- PROGRAM AND SUBROUTINE FILES IN PROSSS 


Program (P) or 
subroutine (S) 
name 

User 

created 

Option(s) 

Procedure(s) 

Comment 

SPAR (P) 

NO 

All 

PRCNRPT , PRCAN AL , 
PRCGRDS 

Finite element structural analysis 
program and its data management 
system. 

CONMIN (S) 
subroutines 

No 

All 

PRCOPTM 

Problem independent set of 
optimization subroutines . 

CONMS1 (P) 

Yes 

1.1, 1.2, 1.3 

PRCOPTM 

Driver program for CONMIN optimiza- 
tion. Has problem dependent 
dimensioned variables in 
blank common. (Nonlinear) 

CONMS2 (P) 

Yes 

2.2, 2.3 

PRCOPTM 

Driver program for CONMIN with linear 
extrapolation in lieu of full 
analysis. Has problem dependent 
dimensioned variables in blank 
common. (Piecewise linear) 

FPROC (P) 

Yes 

All 

PRCPPXX 

Creates a file of design variables 
in a format meaningful for input 
into SPAR. 

EPROC (P) 

Yes 

All 

PRCEPXX 

Creates a file of objective function, 
constraints, and optionally, their 
gradients in a format meaningful for 
input into CONMIN. 

EVALS (P) 

Yes 

1.2, 2.2, 2.3 

None, called from 
option file 

Coit 5 >utes finite difference 
gradients. Dimensioned 
variables are problem 
dependent. 

FSDS (P) 

Yes 

All 

PRCOPTM 

Replaces CONMIN. Modifies values of 
initial design variables by means of 
fully stressed design techniques. 
Dimensioned variables are problem 
dependent. Can be used as an 
inexpensive means for finding start- 
ing design variables. 

FSDSUBS (S) 

Yes 

All 

PRCOPTM 

Subroutines used in conjunction 
with FSDS. 

SELECTS (P) 

Yes 

1.2, 1.3 

None, called from 
option file 

Determines if constraints are 
active or violated. 

RERITES (P) 

No 

1 ,2 

None, called from 
option file 

Copies design variables from 
one file to another. 

BLDELDS (P) 

No 

1.3, 2.3 

PRCNRPT 

Creates an input file for confuting 
gradients in the analysis program 
in the nonrepeatble part. 

GNGRDRS (P) 

No 

1.3, 2.3 

PRCGRDS 

Creates an input file for confuting 
gradients in the analysis program in 
the repeatable part. 

DKDVE21 (S) 
DKDVE22 
DKDVE23 
DKDVE43 

Yes 

1.3, 2.3 

PRCGRDS 

Creates part of the input to compute 
gradients in the analysis program in 
the repeatable part. Confutes 
derivatives of the mass and stiffness 
matrices with respect to the design 
variables. These subroutines are 
used with GNGRDRS. 

DRVSTRS (P) 

No 

1.3, 2.3 

PRCGRDS 

Converts forces and moments and deriva- 
tives of forces and moments to 
stresses and stress derivatives. 

BMSTRS (S) 
PLTSTRS 

Yes 

1.3, 2,3 

PRCGRDS 

Confutes stresses and stress deriva- 
tives for beam and plate elements. 
( Subroutines ) 




4.3.1 Analysis Program: SPAR 


4. 3. 1.1 Overall characteristics .- SPAR is a system of processors which perform 
linear, finite element, structural analysis (ref. 5) . It can compute static deflec- 
tions, stresses, vibration frequencies and modes, dynamic responses, buckling loads, 
and mode shapes. Shown in figure 2 is the organization of the SPAR processors 



Figure 2.- SPAR system organization. 

and data flow. The individual processors communicate with a central body of informa- 
tion known as the data complex. The data complex consists of one or more libraries, 
which contain the data sets output from the different processors. Each data set has 
a specific identifying name by which any processor can access it whenever it is 
required as input for particular computations. A list of the SPAR processors and 
their functions is given in table IV. The numeral next to the processor names refers 
to the rows of table V. In table V certain operations performed in SPAR are defined 
and the operation is broken down according to the type of variable and whether or not 
the operation occurs in the repeatable or nonrepeatable part of PROSSS. Taken 
together, tables IV and V show a division of the SPAR processors between nonrepeat- 
able and repeatable parts. Processors without nxamerals are utilities for functions 
such as plotting, printing, eigenvalue extraction, etc. 

SPAR executes on a processor-by-processor basis. Each processor is executed by 
a separate explicit command. A runstream consisting of a string of such commands 
interlaced with the numerical input data is written by the user for a specific 
problem. Runstreams are described in section 4.4.2. This modularity of SPAR 
organization and execution makes it well suited for optimization applications. 
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TABLE IV.- SPAR PROCESSORS 


Operation 


Processor 

number in 
table V 

Name 

Function 

1, 2, 3, 6 

*TAB 

Creates data sets containing tables of joint locations, section 
properties, material constants, etc. 

5, 7 

ELD 

Defines finite elements making up model 

5, 6, 7 

E 

Generates sets of information for each element, including connected 
joint numbers, geometrical data, material and section property 
data 

CO 

EKS 

Adds stiffness and stress matrices for each element to set of 
information produced by E processor 

10 

TOPO 

Analyzes element interconnection topology and creates data sets 
used to assemble and factor system mass and stiffness matrices 

10 

K 

Assembles unconstrained system stiffness matrix in sparse format 

11 

M 

Assembles unconstrained system mass matrix in sparse format 

15 

KG 

Assembles unconstrained system initial-stress (geometric) 
stiffness matrix in sparse format 

12 

INV 

Factors assembled system matrices 

4 

EQNF 

Computes equivalent joint loading associated with thermal, 
dis locational, and pressure loading 

13 

SSOL 

Computes displacements and reactions due to loading applied at 
joints 

14, 16 

GSF 

Generates element stresses and internal loads 


PSF 

Prints information generated by GSF processor 

17 

EIG 

Solves linear vibration and bifurcation buckling eigenproblems 


DR 

Performs dynamic response analysis 


SYN 

Produces mass and stiffness matrices for systems comprised of 
interconnected substructures 


STRP 

Computes eigenvalues and eigenvectors of substructured systems 

4 

AUS 

Performs array of matrix arithmetic functions and is used in 
construction, editing, and modification of data sets 


DCU 

Performs array of data management functions including display of 
table of contents, data transfer between libraries, changing 
data set names, printing data sets, and transferring data between 
libraries and sequential files 


VPRT 

Performs editing and printing of data sets which are in form 
of vectors on data libraries 


PLTA 

Produces data sets containing plot specifications 


PLTB 

Generates graphical displays which are specified by PLTA processor 


*This processor can operate in an update mode in the repeatable part. 
(See sec 3.1 in ref. 5.) 
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TABLE V.- NONREPEATABLE (N) AND REPEATABLE (R) PARTS IN FINITE 


ELEMENT ANALYSIS BASED ON DISPLACEMENT METHOD 





Type of variable 


Number 

Operation 

Cross-sectional 

dimensions 

Nodal 

coordinates 

Connectivity 

Element type 

1 

Define material properties 

N 

N 

N 

N 

2 

Define coordinates of nodes 

N 

R 

N 

N 

3 

Define each node's degrees of 
freedom 

N 

N 

N 

N 

4 

Define loads 

N 

N 

N 

N 

5 

Define types of elements 

N 

N 

N 

R 

6 

Define cross-sectional dimensions 

R 

N 

N 

N 

7 

Define element-node connectivity 

N 

N 

N 

R 

8 

Compute elemental stiffness 
matrices 

R 

R 

R 

R 

9 

Compute elemental mass matrices 

R 

R 

R 

R 

10 

Assemble structure stiffness matrix 

R 

R 

R 

R 

11 

Assemble structure mass matrix 

R 

R 

R 

R 

12 

Deconpose stiffness matrix 

R 

R 

R 

R 

13 

Compute displacements 

R 

R 

R 

R 

14 

Compute loads on elements 

R 

R 

R 

R 

15 

Assemble structure geometrical 
stiffness matrix 

R 

R 

R 

R 

16 

Compute stresses 

R 

R 

R 

R 

17 

Compute eigenvalues and eigenmodes 
for vibration and/or buckling 

R 

R 

R 

R 


4. 3. 1.2 Analytical calculation of gradients .- Gradients can be calculated in 
SPAR by using runstreams established specifically for this purpose. The general 
analysis capability of SPAR is augmented by this runstream to calculate structural 
response derivatives for static displacements and stresses. The runstream is depen- 
dent upon the types of elements used to model the structure. This method of calcu- 
lating gradients for static analysis is represented in PROSSS by procedure files dis- 
cussed in section 4.2.6. 

4. 3. 1.3 SPAR data storage and retrieval .- A unique feature of SPAR relevant 
to PROSSS organization is its set of data libraries. A group of data sets can be 
assembled to form a named library. Subroutines documented in reference 11 are avail- 
able to store and retrieve the SPAR library data sets. These subroutines can be 
executed by FORTRAN CALL statements and, hence, can be used to make the SPAR data 
storage accessible to non-SPAR FORTRAN programs. 


4.3.2 Optimization Program: CONMIN 

4. 3. 2.1 Overall characteristics .- CONMIN is a general purpose, optimization 
subroutine library capable of solving linear or nonlinear constrained optimization 
problems. The basic optimization alogrithm is the method of feasible directions. A 
user's manual describing the program and its execution options (ref. 6) e:q)lains all 
the control parameters used by CONMIN and the CONMIN execution modes. 

In CONMIN, the objective function and the constraint functions must be con- 
tinuous functions of the design variables. The design variables must also be con- 
tinuous. Therefore, only these two types of optimization problems can be handled by 
CONMIN and, consequently, by PROSSS. 
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The CONMIN program organization, shown in figure 3, consists of a main program 
and the CONMIN subroutine library. The main program reads the initial values of 



Figure 3.- CONMIN program organization. 

design variables and CONMIN control parameters. The computation of the constraints, 
the objective function, and the gradients of both can be carried out in the main 
program if the problem is computationally small. In PROSSS, this mode of operation 
is used for options 2.2 and 2.3 (table I) taking advantage of the simplicity and 
speed of the linear extrapolation procedure. If the problem is large, the computa- 
tion of objective function, constraints, and gradients is executed externally ly 
stopping the main program, performing the external analysis, and restarting the main 
program. This mode of operation is used in all other options. 

Actual optimization is carried out by the CONMIN subroutine library and is con- 
trolled by a set of parameters input through the main program. The CONMIN subroutine 
library also contains a set of the termination criteria. The user can select a 
criterion from that set, and establish the numerical values associated with that 
criterion by means of the input control parameters. 

In PROSSS, the optimizer CONMIN appears in the form of 

1. subroutine CONMIN and a set of associated subroutines 

2. two versions of CONMIN main programs 

(a) C0NMS1, to be used with options 1.1, 1.2, 1.3 

(b) C0NMS2, to be used with options 2.2, 2.3 

4. 3. 2. 2 Program; C0NMS1 .- The program is problem independent except for the 
blank common statement. (See app. D. ) For a new application, the arrays in this 
statement must be inspected and adjusted according to reference 6, if necessary, to 
accommodate the problem size. The source C0NMS1 must then be recompiled by the user, 
and the binary code is used in execution. 

The program functions are 

1. read CONMIN control parameters from PCNPR the first time C0NMS1 is 
executed 
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2. read analyzer output in the second and subsequent executions for 

file CNMNIO 

3. call subroutine CONMIN 

4. output new vector of design variables for the optimizer on file CNMNIO 

5. stop itself to permit the external analysis 

6. write and save all data needed for subsequent restarts on file PCONRST 

7. generate a message on file GONOGO to indicate that the nonlinear 

programming (NLP) be stopped when subroutine CONMIN detects satisfaction of 
its termination criteria 


The program card is as follows: 

PROGRAM C0NMS1 ( INPUT, OUTPUT, TAPES ,TAPE7 ,TAPE9,TAPE1 1 , TAPE 1 0 ,TAPE5 = INPUT, 
TAPES = OUTPUT) 


where 

INPUT PCNPR 

OUTPUT SAVCOUT 

TAPE7 PCONRST 

TAPES PSTRT 

TAPE9 CNMNIO 

TAPE 10 PASS 

TAPE 11 GONOGO 

4. 3. 2, 3 Program; CONMS2 .- The foregoing description of the program CONMS1 
applies to CONMS2 with the following differences# (See app. D. ) 

The program functions are 


1 . read CONMIN control parameters from file PCNPR 

2. read data for linear extrapolation analysis from file BLOCK 

3. call subroutine CONMIN 

4. execute the linear extrapolation analysis 

5. repeat functions 3 and 4 until two changes in the objective function, 

obtained by comparing results of three consecutive linear stages, are 
smaller than a prescribed limit and generate a message to CCL that the 
piecewise linear programming (PLP) outer loop should be stopped 
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The program card is as follows: 


PROGRim C0NMS2 ( INPUT, OUTPUT,TAPE7 ,TAPE8 ,TAPE9 ,TAPE1 0 ,TAPE1 1 ,TAPE5 = INPUT, 
TAPE6 = OUTPUT) 


where 


INPUT 

PCNPR 

OUTPUT 

SAVCOUT 

TAPE? 

PSTRT 

TAPE8 

BLOCK 

TAPE9 

CNT 

TAPE 10 

PASS 

TAPE1 1 

GONOGO 


Same as CONMS1 


Same as CONMS 1 


4.3.3 Front Processor Program: FPROC 

This program does not exist in the PROSSS until it is coded by the user for a 
specific problem. The front processor program must be compiled by the user, and the 
binary code must be stored to be used in the PROSSS execution. The name of the 
binary file must be supplied in the input file to PROSCRS. (See app. D for an 
example of a front processor program. ) 

The program functions are 

1. read the design variables output by CONMIN from file CNMNIO 

2. calculate behavior variables using the design variables on file CNMNIO 

3. output these behavior variables in a format meaningful for SPAR. (See 

SPFPOUT in sec 4.4.3.) 

The program card is as follows: 

PROGRAM FPROC (INPUT, OUTPUT, TAPE? , TAPES = INPUT, TAPES = OUTPUT) 


where 


FPROC 

program name 

INPUT 

CNMNIO 

OUTPUT 

SPFPOUT 

TAPE? 

CONS 
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4.3.4 End Processor Program; EPROC 


This program must also be coded by the user. (See app. D.) The end processor 
program must be coitpiled by the user, and the binary code must be stored to be used 
in the PROSSS execution. The name of the binary file must be supplied in the input 
file to PROSCRS. 

The program functions are 

1. read user-supplied constants defining limits imposed on the behavior 

variables from file ENDN,* these limits are to be used for the constraint 

function evaluations 

2. retrieve the SPAR output data sets (behavior variables and, optionally, 

their gradients) from the SPAR libraries and store them in arrays 

3. extract from these arrays the design variables to be used for the constraint 

function evaluations and for computing the objective function 

4. evaluate the constraints and the objective function and, optionally, their 

gradients 

5. output these quantities in NAMELIST form on file CNMNIO to be read by 

CONMSI or C0NMS2 main programs (see the LINKE NAMELIST in app. D) 

The SPAR libraries are in a special binary format accessible only by two FORTRAN 
callable subroutines, DAL and FIN, which are used as standard parts of the end 
processor code to carry out program function 2. These subroutines are documented in 
reference 11. Both routines are used in SPAR and must be retrieved from the SPAR 
relocatable subroutines and loaded with the end processor. 

The end processor program card is as follows: 

PROGRAM EPROC ( INPUT, T APE6 , TAPES ,TAPE5 = INPUT) 


where 


EPROC 

program name 

TAPES 

ENDN 

TAPES 

CNMNIO 

TAPES 

BLK 


4.3.5 Control Programs 

There are four problem independent control codes; EVALS, evaluates the finite 
difference gradients; FSDS, incorporates the fully stressed design technique; 
SELECTS, selects active or violated constraints; and RERITES, rewrites the design 
variables to a new file. 
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4.3.5. 1 Program to compute the finite difference gradients; EVALS . - Its func- 
tions are 

1 . read CONMIN control parameters supplied by user from file PCNPR 

2. read the design variables from file PSTRT 

3. Stop itself to allow execution of the front processor/SPAR/end processor 

sequence 

4. restart - read (from file CNMNIO) and store the objective function and 

constraint values 

5. increment one design variable 

6. restart - reset the design variable incremented in step 5 to its original 

va lue 

7. using the stored objective function and constraint values, compute the 

finite difference gradients of these functions for the design variable 

8. repeat steps 4 to 7 until all variables have been incremented 
The program card is as follows: 

PROGRAM EVALS ( INPUT, OUTPUT, TAPES = INPUT, TAPE7 , TAPES ,TAPE9 ,TAPE1 0 ,TAPE1 1 ) 
where 


TAPES PCNPR 

TAPE? PASS 

TAPES PSTRT 

TAPE9 CNMNIO 

TAPE 10 BLOCK 

TAPE1 1 CHECK 

See appendix D for a sample listing. 

4. 3. 5. 2 Fully stressed design (FSD) program: FSDS .- The program uses a fully 

stressed design technique to modify the initial design variables. The program func- 
tions are 

1. read control parameters supplied by user from file PCNPR 

2. read the design variables from file PSTRT 

3. stop itself to allow execution of the front processor/SPAR/end processor 

sequence 
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4. restart - read values of the stress constraints from file BLOCK 


5. change the design variables by FSD technique using the constraint values 

6. repeat from 3 

The program card is as follows; 

PROGRAM FSDS (INPUT,0UTPUT,TAPE8 ,TAPE7 ,TAPE9 ,TAPE1 1 ,TAPE1 0 ,TAPE5 = INPUT, 
TAPES = OUTPUT) 

All files are defined exactly the same as in the program C0NMS1. (See app. D 
for a sample listing. ) The program calls a problem independent subroutine FSDSUBS 
(also in app. D) that carries out FSDS function 5. 

4. 3. 5. 3 Program to select the active or violated constraints; SELECTS .- The 
program functions are 

1 . read the constraints from file BLOCK 

2. determine if the constraint is less than the constraint thickness 

parameter for linear and side constraints and, thus, active or violated 

3. if the constraint is active or violated, the analytical gradient of that 

constraint is stored and a pointer is set in an array to denote whether 
or not the constraint is active or violated 

The program card is as follows; 

PROGRAM SELECTS ( INPUT , OUTPUT , TAPES = INPUT, TAPE6 = OUTPUT) 


where 


TAPES BLOCK 

TAPES CONREST 

See appendix D for a sample listing. 

4. 3. 5. 4 Program to rewrite the design variables to a different file; RERITES . - 
The program RERITES copies the design variables from CNMNIO to SO. 

The program card is as follows: 

PROGRAM RERITES (INPUT, TAPES = INPUT, TAPES) 

where 


TAPES CNMNIO 

TAPES SO 

See appendix D for a sample listing. 
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4.3.6 Gradient Programs 


There are three problem independent programs, BLDELDS, GNGRDRS, and DRVSTRS, 
that aid in calculating analytical gradients. The first, BLDELDS, builds a file for 
input into the analysis program to calculate the derivatives for the mass and stiff- 
ness matrices with respect to the design variables in the nonrepeatable part of 
PROSSS. The second, GNGRDRS, builds a file in the repeatable part for input into the 
analysis program to compute the derivatives of the stresses and of the forces and 
moments with respect to the design variables. The third, DRVSTRS, converts the 
forces and moments and the derivatives of the forces and moments into stresses and 
derivatives of stresses. 

4.3.6. 1 Program to create input file for computing gradients in the analysis 
program in the nonrepeatable part; BLDELDS .- BLDELDS performs the following 
functions: 

1. Read control parameters supplied by the user from file INPT. 

2. Read the input model data file for the analysis program from file NRRS. 

3. Change all design variables in the file NRRS to unity and place on file 

RSOUT. 

4. Create remainder of file RSOUT to calculate the derivative of the stiffness 

and mass matrices with respect to the different design variables. 

The program card is as follows; 

PROGRAM BLDELDS ( TAPES , TAPE2 3 , TAPE2 0 , TAPE2 1 , TAPE2 2 , OUTPUT ) 


where 


TAPES 

INPT 

TAPE23 

NRRS (after editing) 

TAPE20 

RSOUT 

TAPE2 1 

Scratch file 

TAPE22 

Scratch file 

OUTPUT 

Output file for error messages 


See appendix D for a sample listing. 

4. 3. 6. 2 Program to create input file for computing gradients in the analysis 
program in the repeatable part; GNGRDRS .- GNGRDRS performs the following functions: 

1. Reads control parameters supplied by user from file INPT. 

2. Creates the runstream to calculate the derivatives of the stiffness and the 
mass matrices with respect to the design variables when an element (such as a beam or 
plate) has more than one contributing factor. The program calls user-supplied sub- 
routine(s) with any of the following names DKDVE21, DKDVE22, DKDVE33, and/or 
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DKDVE43. These subroutines compute the derivatives of the stiffness matrix with 
respect to a design variable for a particular element type in SPAR (e.g. , E21 or 
E43). The name(s) used depends upon the elements used in the finite element model. 

If a subroutine is not used, it remains unsatisfied. Two integer parameters used in 
naming the created data sets are passed to each subroutine. The first is the counter 
for the design variable and the second is the number of unconstrained degrees of 
freedom (fron 1 to 6) . A listing of a sample DKDVE21 subroutine is shown in 
appendix D. 

The subroutine card for DKDVE21 is as follows: 

SUBROUTINE DKDVE2 1 ( NDVJIM ,NDF ) 


where 


NDVJIM the n\amber of the design variables (first, second, third, etc. ) 

for which the derivative of the stiffness and mass matrices with 
respect to the design variable is being calculated 

NDF number of degrees of freedom per joint squared 

3. Create the remainder of the runstream and place on file RSOUT. 

The program card is as follows: 

PROGRAM GNGRDRS ( INPUT, TAPE30 ,TAPE3 1 ,TAPE10 , TAPES = INPUT , OUTPUT ) 


where 


TAPES 
TAPE30 
TAPE3 1 
TAPE 10 
OUTPUT 


INPT 


CONS 




CNMNIO J 
RSOUT 


Used in user-supplied subroutine 


Output file for error messages 


See appendix D for listing of GNGRDRS. 

4. 3.6. 3 Program to convert forces and moments and the derivatives of forces and 
moments to stresses and stress derivatives: DRVSTRS .- DRVSTRS performs the following 
functions: 


1. Reads control parameters supplied by user from file INPT. 

2. Reads forces and moments and the derivatives of forces and moments from file 
SPARED, a library created by SPAR. 

3. Computes stresses and stress derivatives using a user-supplied subroutine 
named BMSTRS (for beams) or PLTSTRS (for plates). As before, if a name is not used, 
it remains unsatisfied. Four integer parameters are passed to BMSTRS. They are 

(1) a switch and (2) a counter, so certain computations can be skipped if they are 
not needed; (3) a block counter for accessing an array; and (4) another switch to 
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determine if the beam is the contributing factor to the stress derivative. The first 
three parameters are also passed to PLTSTRS. A listing of a sample BMSTRS subroutine 
is provided in appendix D. 

The subroutine card for BMSTRS is as follows: 

SUBROUTINE BMSTRS (ISW,KCNT, JCNT,IBEAM) 


where 


ISW,KCNT 


JCNT 


a switch and a counter used to store certain beam data 

(e.g. , moments of inertia) and make certain computations only 
on the first time BMSTRS is called from DRVSTRS 

a counter to find the location in blank common for various data 
items, depends on the number of beam elements 


IBEAM 1, if beam is a contributing factor to stress derivatives; 

0 , otherwise 

4. The stress and stress derivatives are written on SPARLD for processing by the 
end processor EPROC (sec 4.3.4). 


The program card is as follows: 


PROGRAM DRVSTRS ( INPUT, TAPE3 0, TAPE3 1 , TAPES = INPUT,TAPE15 ,TAPE16 ,OUTPUT, 
TAPE6 = OUTPUT) 


where 


TAPES 
TAPE30 
TAPE3 1 
TAPE IS 
TAPE 16 
OUTPUT 


INPT 


CONS 


1 


CNMNIOj 


Used in user-supplied subroutine 


Scratch file 
Scratch file 

Output file for error messages 


See appendix D for a sample listing of DRVSTRS. 


4.4 Data Files 


There are five types of data files in PROSSS: input, model, transfer, 

and save. Sample annotated listings of each file are shown in appendix E. 


edit. 
Table VI 
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TABLE VI.- DATA FILES IN PROSSS 


File name 

Type 

Created by 

Storage 

Problem 

Program(s) 
using file 

Comment 

PCONPAR, 

CONPAR 

Input 

User 

Permanent 

Dependent 

CONMS1,CONMS2, 

EVALS 

Initializes values for optimization program 

PSTART 

STARTX 

Input 

User 

Permanent 

Dependent 

C0NMS1,C0NMS2 

Initializes design variables for optimization 
program 

PASS 

Input 

EDPASSI, 

EDPASS2 

Local 

Independent 

CONMS1 , EVALS 

Test variable for first pass through system. 
Created by EDPASS1 file. 

INPT 

Input 

User 

Permanent 

Dependent 

BLDELDS ,GNGRDRS, 
DRVSTRS 

Initializes values for gradient calculation 

CNT 

Input 

User 

Permanent 

Dependent 

CONMS1 ,CONMS2 

Objective functions and tolerance for 
termination test 

ENDN 

Input 

User 

Permanent 

Dependent 

EPROC 

Defines limits imposed on design variables in 
end processor 

CONS 

Input 

User 

Permanent 

Dependent 

GNGRDRS , DRVSTRS 

Defines certain constants used in analytical 
gradient calculation 

NRRS 

Model 

User 

Permanent 

Dependent 

SPAR 

Nonrepeatable input runstream to analysis 
program 

SPARRS 

Model 

User 

Permanent 

Dependent 

SPAR 

Repeatable input runstream to analysis program 

PCONRST 

Transfer 

Programs 

Local 

Dependent 

CONMS1,CONMS2, 

SELECTS 

Data saved for subsequent passes through 
optimization program. Created in 
optimization program 

BLOCK, BLK 

Transfer 

Programs 

Local 

Dependent 

CONMSl,CONMS2, 
EVALS, EPROC, 
SELECTS 

Contains objective function and constraint 
data 

PCNMNIO, 

CNMNIO 

Transfer 

Programs 

Local 

Dependent 

FPR0C,C0NMS1, 
CONMS2 , GNGRDRS , 
DRVSTRS, EPROC, 
RERITES, EVALS 

Transfer design variable, objective function 
and constraint data between optimization 
program and front and end processors 

CHECK 

Transfer 

Programs 

Local 

Dependent 

EVALS 

Created when analysis has been performed for 
each design variable combination 

GONOGO 

Transfer 

Programs 

Local 

Dependent 

C0NMS1,C0NMS2 

Created to terminate PROSSS 

SPFPOUT 

Transfer 

Program 

Local 

Dependent 

FPROC,SPAR 

Contains updated design variables for input 
into analysis program 

RSOUT 

Transfer 

Program 

Local 

Dependent 

BLDELDS ,GNGRDRS, 
SPAR 

Input runstream to analysis program 

SO 

Transfer 

Program 

Local 

Dependent 

EVALS, RERITES 

Design variable information 

SPARLA,SPARLB, 
SPARLC , SPARLD 

Transfer 

Program 

Local 

Dependent 

SPAR, DRVSTRS, 
EPROC 

Data library created by analysis program 

EDPASS1 

Edit 

External 

Permanent 

Independent 

None 

Initializes PASS variable to 1 

EDPASS2 

Edit 

External 

Permanent 

Independent 

None 

Reinitializes PASS variable to 1 

EDIT1 

Edit 

External 

Permanent 

Independent 

None 

Removes all but element connection data 
from NRRS file 

EDIT2 

Edit 

External 

Permanent 

Independent 

None 

Prepares nonrepeatable RSOUT file for input 
into analysis program 

MERGFP 

Edit 

External 

Permanent 

Independent 

None 

Merges SPFPOUT file into SPARRS file 

EDGRDS , 

Edit 

External 

Permanent 

Independent 

None 

Prepares repeatable RSOUT file for input into 
analysis program 

SAVCOUT 

Save 

Program 

Permanent 

Dependent 

CONMSl,CONMS2 

Cumulative list of data output from 
optimization program 

NRLA 

Save 

Program 

Permanent 

Dependent 

SPAR 

Data library output from nonrepeatable analysis 
program 

SAVSPLD 

Save 

Program 

Permanent 

Dependent 

SPAR, DRVSTRS 

Data library output from repeatable analysis 
program 
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provides a quick reference for each data file by providing the following information 
about each file: 


1. the name of the file 

2. the type of file (e.g. , input or model) 

3. whether the file is created by the user, program, or external to PROSSS; 

files created external to PROSSS, are created one time, stored on a perma- 
nent file, and then accessed by any user independent of the application 

4. whether the file is local or permanent 

5. whether the file is problem dependent or independent 

6. the programs that use this file 

7. a brief comment about the file's function 


4.4.1 Input Data Files 

There are seven input files that primarily provide initialization data to the 
various programs in PROSSS. (See app. E for sample listings.) These files are as 
follows: 

1. PCNPR (CONPAR) initializes variables used in the optimization program. 

(Note: PCNPR is the name used in the generalized input files. See app. A.) It is 

replaced by the specific problem dependent file name before the option is used. 

CONPAR is the local file name into which the specific file is stored. It is in 
NAMELIST format with the NAMELIST name CONPAR. A description of the variables can 
be found in reference 6. 

2. PSTRT (STARTX) is also read by the optimization program to initialize the 
design variables. (See note about PCNPR and CONPAR.) It, too, is in NAMELIST format 
with the NAMELIST name STARTX. 

3. PASS contains one number. In the initialization process, the number is set 
to 1 using the EDPASSI file in section 4.4.4, signifying the first pass through the 
system. After the first pass, the value is changed to 2 and different paths are 
taken in the programs using PASS as an input variable. Options 1.2 and 2.2 (table I) 
reset the value to 1 within the system using the EDPASS2 file also described in 
section 4.4.4. PASS is also in NAMELIST format with the NAMELIST name PASSAGE. 

4. INPT defines values used in analytical gradient calculation. INPT has two 
card types. The first type has the format (6( 1X,I4) , 1X,A4) , consists of one card, 
and contains the following variables: 

NOLC number of load cases 

NODV number of design variables 

ISNOLC new starting number for load cases with derivatives 

JOINTS number of joints in the model 
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NDF nvunber of degrees of freedom 

NOEL mimber of different element types in the model 

VORB a four character word to determine the type of 

analysis (e.g. , STAT,VIBR,BUCK) 

The second type has the format (6( 1X,A3, 1X,I3, 1X,I3) ) , consists of one or 
more cards, and contains the following variables (one set for each element) : 

EL(I) element type (e.g., E21,E43) 

NSECT(I) largest section property number used for that element type 

NODVPE(I) number of design variables per element type 

5. CNT is a file that initializes parameters for terminating the optimization 
process. CNT is in NAMELIST form with the NAMELIST name CNT. 

6. ENDN is a file that defines limits iitposed on the design variables in the end 
processor. ENDN is in NAMELIST format with the NAMELIST name ERIN. 

7. CONS is a file supplied by the user to define certain constants such as the 
cross-sectional dimensions of a beam used in analytical gradient calculation. Since 
the file is only read by user-supplied subroutines, the format is also defined by the 
user. See section 4.3.6 for more information. 


4.4.2 Model Data Files 

Model data files contain finite-element— model input data for the analysis 
program SPAR. Two model data files, called SPAR runstreams, are used in PROSSS. The 
first, NRRS, defines the model in terms of nodes and elements connecting those 
nodes. This file is only used in the nonrepeatable part of PROSSS. The second model 
file, NGRS (no gradients) or RGS (gradients), updates the data for elements used as 
design variables and contains data for performing the analysis in the repeatable part 
of PROSSS. Sample listings of NRRS, NGRS, and RGS are contained in appendix E. 


4.4.3 Transfer Data Files 

Transfer data files pass data among the various programs in PROSSS. These are 
local files created within the system, and they are returned when the analysis- 
optimization process is completed. The following transfer files exist in PROSSS: 

1. PCONRST is a file in NAMELIST format with the NAMELIST name SAVE that takes 
initial data from PCNPR and updates these data in each new pass through the 
optimization program. In two options from table I (2.2 and 2.3), the BLOCK file 
(described next) is used in place of PCONRST. 

2. BLOCK or BLK is a file in NAMELIST format with the NAMELIST name BLK and 
contains objective function and constraint data. 
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3. PCNMNIO or TCNMNIO, CNMNIO (see note on PCNPR in section 4.4.1) is a file in 
NAMELIST format with two NAMELIST names. Name LINKE contains the number of design 
variables and their values. It is written by the end processor and read by the 
optimization program. Name LINKF contains objective function and gradient infor- 
mation. It is written by the optimization program and read by the front and end 
processors. Two options (2.2 and 2.3) replace PCNMNIO with CNT file discussed in 
section 4.4.1 . 

4. CHECK is created in options 1.2 and 2.2 when analysis has been performed for 
each design variable and their combination, if this file exists (i.e., local), then 
the optimization program is executed. 

5. GONOGO is created when the objective function has not changed more than a 
specified tolerance (see CNT file in section 4.4.1) in three passes. If this file 
exists (i.e., local), the process is terminated. 

6. SPFPOUT is created by the front processor and contains the updated design 
variables. This file is merged into the NGRS or RGS file using the MERGER files 
described in section 4.4.4. The NGRS and RGS files are described in section 4.4.2. 

7. RSOUT is an input file (runstream) for the analysis program similar to those 
found in section 4.4.2. RSOUT is created twice in each of two options (2.2 and 2.3), 
once in the nonrepeatable part and once in the repeatable part, and is used in 
calculating the analytical gradients. 

8. SO is identical to the PSTRT file discussed in section 4.4.1. 

9. SPARLA, SPARLB, SPARLC, SPARLD are data libraries created by the analysis 
program. 

Sample listings of the transfer files are presented in appendix E. Files CHECK, 
GONOGO, SO, SPARLA, SPARLB, SPARLC, and SPARLD are not listed, either because of 
their length or because of their binary format. 


4.4.4 Edit Data Files 


Edit data files contain Text Editor (ref. 10) commands primarily for editing 
files input to the analysis program. None are created by the user. The following 
edit data files exist in PROSSS; 


1. EDPASS1 creates the PASS file described in section 4.4.1 and initializes 

the variable to 1 . 

2. EDPASS2 reinitializes the number in the PASS file to 1. 

3. EDITi edits the NRRS file described in section 4.4.2 to remove all but 

the element connection data. 

4. EDIT2 edits the RSOUT file in the nonrepeatable part described in 

section 4.4.3 to prepare it for input to the analysis program. 

5. MERGFP merges the SPFPOUT file described in section 4.4.3 into the NGRS or 

RGS files described in section 4.4.2. 
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6. EDGRDS edits the RSOUT file in the repeatable part described in 
section 4.4.3 to prepare it for input to the analysis program. 

Sample listings of edit data files are contained in appendix E. 


4.4.5 Saved Data Files 

Three files are automatically saved for listing (SAVCOUT) and postprocessing or 
restart purposes (NRLA, SAVSPLD). File SAVCOUT contains a cumulative list of all the 
information output from the optimization program. File NRLA is a library of data 
output by the analysis program in the nonrepeatable part of the process. File 
SAVSPLD is a library of objective function, stress, and/or stress derivative 
information output by the analysis program in the nonrepeatable part of the 
process. File SAVSPLD is a library of objective function, stress, and/or stress 
derivative information output by the analysis program in the repeatable part of the 
process. These files are either too long or in a binary format and, therefore, are 
not listed in appendix E. 


5 SAMPLE EXECUTIONS OF PROSSS 

Each option was executed, using the input files shown in appendix A, to 
determine the final objective function (min. mass, kg) of the finite element model of 
the fuselage shown in figure 4. The model is composed of 80 joints, 58 rods, 



Figure 4.- Fuselage model used for testing. 


76 beams, and 56 membranes. There are 352 degrees of freedom. The three design 
variables are the cross-sectional area of the transverse stringers (beams), the 


29 


cross-sectional area of the longitudinal stringers (rods), and the thickness of the 
panels (membranes). The design variables are handled by the optimizer in reciprocal 
form to improve the convergence. Their initial recriprocal starting values are 
0.05 cm^, 1.0 cm^, and 4.0 cm, respectively. The initial objective function is 
5460.12 kg. Shown in table VII is a comparison of actual results (not reciprocals) 


TABLE VII.- COMPARISON OF RESULTS FROM DIFFERENT PROSSS OPTIONS 


Option (table I) 

1.1 

1.2 

1.3 

2.2 

2.3 

FSD 

1.1 

Objective function, 
minimized mass, kg 

6501.75 

6398.91 

6574.37 

6350.10 

6338.20 

6362.39 

Design variables: 

2 

Cross-sectional area, cm 
Thickness , cm 

/ 4.7364 
\ 1.6333 
^ .1 

8.4246 

1.5713 

.1 

12. 1567 
1.5563 
.1218 

1.2088 

1.5706 

.1738 

1.6722 

1.6215 

.1 

1. 

1.6284 

.1 

Run cost, $ 

121 

127 

98 

68 

31 

20 


for each option. All final objective functions and design variables are within 
reasonable limits. The piecewise linear approach is 50 to 75 percent less expensive 
to execute than the nonlinear approach. 


Langley Research Center 

National Aeronautics and Space Administration 
Hampton, VA 23665 
September 11, 1981 
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APPENDIX A 


SAMPLE SETUP OF PROSSS FOR A SPECIFIC OPTION 

This section contains listings of the source file PROSCRS/ sample input files 
for each option, and the control card and edit files created by the binary file 
PROSCRS. 


PROSCRS 


PROGRAM PROSCR S( TAPES# TAP E9, TAPE 10>T APE 11) 

THIS PROGRAM CREATES A SPECIFIC OPTION PROCEDURE 
FILE FROM A GENERAL ONE. 


THE SPECIFIC NAMES ARE READ IN FROM UNIT 8. 

READ(8»10)A1#N1 
10 F0RMAT(A7#3X, 12) 

WRITE CONTROL CARDS ON UNIT 9 

WPITE(9#20) 

2 0 F0RMAT<*.PR0C# PROSS S . ♦ / *GET# PROSOPT/UN-753A37N. + ) 

IF(Nl.EQ.ll) GO TO AO 
IF(N1.EQ.12) N«1 
IF(N1.EQ.13) N«2 
IF(N1.EQ.22) N-3 
IF(N1.EQ.23) N«A 
WRITE(9#30) N 

30 FORMAT (^C OP YBR# PR OS OPT# DUMMY# *# 1 1# ♦ . ♦ ) 

AO WRITE(9#50) 

50 FORMAT(=*'COPYBR#PROSOPT#nPTION, + /*REWIND#OPTION#EDOPTC#EDOPT.*) 
WRITE(9#55) 

55 FORMAT(*EOIT#EDOPT#,EDOPTC#EDOUT.*/*RFWIND#EDOPT.+) 

WRITE(9#60) 

60 F0PMAT{+EDIT#0PTI0N,,EDaPT#EDDUT.+) 

WRITE(9#70) 

70 FORMAT(*RETURN# EDOPTC# PROSOPT# DUMMY# EDOPT# PR OSCR B# PROS S I N . * ) 
WRITE(9#80) N1 

80 FOR MAT (♦PE WIND# OPTION, ♦/♦BEGIN# OPT*# 12 # ♦# OPT I ON . ♦ ) 

WRITE EDIT COMMANDS ON UNIT 10. 

WRITECIO# 100) A1#N1 

100 F0RMAT(*RS« /*#A7# ♦/#/♦#!?#♦/» 100*) 

110 READ(8#120) A1#A2 

120 F0RMAT(A7#3X# A7) 

IF(E0F(8)) 150#130 
130 WRITEdO# lAO) A1#A2 
lAO F0RMAT(*RS»/*# A7#*/# /♦#A7#*/J100*) 

GO TO 110 
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REMOVE BLANKS IN EDIT COMMANDS 

150 WRITE(11#160) 

160 FORMAT(*RSJ/ / J 1 00* /♦ END* ) 
WRITEdO, 165) 

165 FOPMAT(*END*) 

STOP 

END 
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SAMPLE INPUT FILES FOR OPTIMIZATION OPTIONS (TABLE I) 


Option 1.1 with Option 1.1 with Option 1.2 

nonrepeatable part fully stressed design 


General Specific 


PORT 

NONREPT 


NRRS 

FUSD 

CONMIN 

ENDPl 

FRNT 

ENDN 

PCNPR 

PSTRT 

CONS 

NGRS 

PCONRST 

PCNMNIO 

SAVCOUT 

NSPARLA 

FLENGTH 

BLK 

SAVSPLD 


11 

1 


Execute 

nonrepeatable 

part 


NRSPARS { 


Nonrepeatable 

runstream 


0 

CONMBl 

FPFUBl 

FPFGBl 

EPFUIN 

CONPl 

STRP3 

CONS 

RRSNG 

CONREST 

CNMNIO 

REPCOUT 

NRLANG 

100000 

BLOCK 

REPSPLD 


General 

PORT 

NONREPT 

FUSD 

FSOSUB 

CONMIN 

ENDPl 

FRNT 

ENDN 

PCNPR 

PSTRT 

CONS 

NGRS 

PCONRST 

PCNMNIO 

SAVCOUT 

NSPARLA 

FLENGTH 

BLK 

SAVSPLD 


Specific 

11 

0 

Use fully 
stressed design 
FSDSUBB 
FSDB 
EPFUBl 
FPFGBl 
EPFUIN 
CONPl 
STRP3 
CONS 
RRSNG 
CONREST 
CNMNIO 
REPCOUT 
NRLANG 
100000 
BLOCK 
REPSPLD 


General 

Specific 

POPT 

12 

NONREPT 

0 

FUSD 

0 

CONMIN 

CONMBl 

ENDPl 

EPFUBl 

FRNT 

FPFGBl 

ENDN 

EPFUIN 

PCNPR 

C0NP13 

PSTRT 

STRP3 

CONS 

CONS 

NGRS 

RRSNG 

PCONRST 

CONREST 

PCNMNIO 

CNMNIO 

SAVCOUT 

REPCOUT 

NSPARLA 

NRLANG 

FLENGTH 

100000 

BLK 

BLOCK 

SAVSPLD 

REPSPLD 


Option 

1.3 

Option 

2.2 

Option 

2.3 

General 

Specific 

General 

Specific 

General 

Specific 

POPT 

13 

POPT 

22 

POPT 

23 

NONREPT 

0 

NONREPT 

1 

NONREPT 

0 

FUSD 

0 

NRRS 

NRSPARS 

FUSD 

0 

CONMIN 

CONMBl 

FUSD 

0 

CONMIN 

C0NMB2 

ENDPl 

FPFUBl 

CONMIN 

C0NMB2 

ENDPl 

EPFGBl 

ENDP2 

EPFGBl 

ENDPl 

EPFUBl 

SUBS 

1 

SUBS 

1 \ 

FRNT 

FPFGBl 

BINDEPB 

BINDEPB 

BINDEPB 

BINDEPB > gradients 

ENDN 

EPFUIN 

FRNT 

FPFGBl 

FRNT 

FPFGBl 

PCNPR 

C0NP2 

ENDN 

EPFUIN 

ENDN 

EPFUIN 

PSTRT 

STRPA 

PCNPR 

C0NP2 

PCNPR 

C0NP13 

CONS 

CONS 

PSTRT 

STRPA 

PSTRT 

STRP3 

CNT 

CNT 

INPT 

INPTT 

INPT 

INPTT 

NGRS 

RRSNG 

CONS 

CONS 

CONS 

CONS 

PCONRST 

BLOCK 

CNT 

CNT 

NGRS 

RRSNG 

PCNMNIO 

CNT 

NGRS 

RRSG 

RGS 

RRSG 

SAVCOUT 

REPCOUT 

PCONRST 

BLOCK 

PCONRST 

CONREST 

NSPARLA 

NRLANG 

PCNMNIO 

CNT 

PCNMNIO 

CNMNIO 

FLENGTH 

100000 

SAVCOUT 

REPCOUT 

SAVCOUT 

REPCOUT 

BLK 

BLOCK 

NSPARLA 

NRLAG 

NSPARLA 

NRLAG 

SAVSPLD 

REPSPLD 

FLENGTH 

100000 

FLENGTH 

100000 



SAVSPLD 

REPSPLD 

BLK 

BLOCK 



BLK 

BLOCK 


SAVSPLD REPSPLD 
BLK BLOCK 
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CONTROL CARD FILE CREATED BY PROSCRB 


.ppoc» pRnsss. 

GFT»PR0S0PT/UN-753437N. 

COPYBR# PROSOPT, OPTION. 

REWIND# OPTIONEE OOP TC^EDOPT. 
EDIT#EDOPT»#EDDPTC#EDOUT. 

rfwind»edopt. 

EDIT# OPTION## EDOPT,EDOUT. 

R E TURN# EDO PTC# PR nSOPT# DUMMY# EDOPT# PROSCRB# PR OS SIN. 
PEWIND#OPTION. 

PEGIN#OPTll#OPTION. 


EDIT FILE CREATED BY PROSCRB 
(After extraneous blanks removed) 


RS 

/PORT 

/#/!!/, ‘100 



RS 

/nonrfpt/# /I 

/ 

J 100 

RS 

/NRPS 

/# /NRSPARS/ 

,‘100 

RS 

/FUSD 

/# /O 

/ 

;ioo 

RS 

^CONMIN 

/#/CONMBl 

/ 

jioo 

RS 

/ENDPl 

/# /EPFUBl 

/ 

;ioo 

RS 

/FRNT 

/# /FPFGBl 

/ 

;ioo 

RS 

/ENDN 

/# /FPFUIN 

/ 

} 100 

RS 

^PCNPR 

/# /CONPl 

/ 

5 100 

RS 

/PSTRT 

/# /STRP3 

/ 

?100 

RS 

/CONS 

/# /CONS 

/ 

J 100 

RS 

/NGPS 

/ # / R R S N G 

/ 

J 100 

RS 

/PCONRST/#/CONREST/ 

; 100 

RS 

/PCNMNIO/# /CNMNIO 

/ 

J 100 

PS 

/SAVCnUT/# /REPCOUT/ 

;loo 

RS 

/NSPARLA/# /NRLANG 

/ 

} 100 

RS 

/FLENGTH/#/100000 

/ 

;loo 

RS 

/BLK 

/# /BLOCK 

/ 

noo 

RS t /SAVSPLD/# /REPSPLD/ 

J 100 


END 
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OPTION FILES 


The 
given in 


following are listings and flowcharts 
table 1 ! 


for each of the optimization options 


Option 1.1 


.PR0C#0PT11. 

IFE, (N0NRFPT.E0.1)» NONREPEAT. 

BE6IN> PRCNRPT# PROS PRC >POPT#NRRS#FLENGTH# INPT# NS P ARL A . 

ENDIF#NONREPEAT. 

BEGIN>PRCINIT#PP0SPRC#P0PT#C0NMIN#ENDPl>ENDP2>SUBS#BINDEPB>FUSn»FSDSUB. 
BEGIN# PRC GETF# PR OS PRC # PQPT# F RNT# FNON# PC NPR » PS TRT# I NPT# CONS# CNT# NGRS# RGS . 
WHILE# (.NOT. (FILE (G0N0G0#L0) ))#OPTION11. 

BEGIN#PRCOPTM#PROSPRC#PCONRST#PCNNNIO#SAVCOUT, 

BEGIN# PRCFPXX# PR OS PRC. 

BEGIN# PRC ANAL# PROS PRC # NS P ARL A# FL ENGTH# SA VS PL D . 

BEGIN# PRC EP XX# PROS PRC # BLK . 

ENDW#0PTI0N11. 

BEGIN# PRCEN0#PR0SPRC. 
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Option 1.2 


.PR0C#0PT12, 

IFE> (NONREPT.EQ •!)» NONREP EAT. 

BEGIN, PRCNRPT,PRnSPRC,POPT,NRPS,FLENGTH, INPT,NSPARLA. 

ENDIF,NDNREPEAT. 

SET(R2«1) 

BEGIN, PRCINIT, PROSPRC# P0PT,C0NNIN,ENDP1, EN0P2,SUeS,BINDEPB,FUSD,FSDSUB. 
BEGIN,PRCGFTF,PROSPRC,POPT, FRNT,ENON,PCNPR,PSTRT, INPT,C0NS,CNT,NGRS,R6S. 
BEGIN,PRCOPTM,PROSPRC,PCQNRST,PCNMNIO,SAVCOUT. 

BEGIN, PRCFPXX,PROSPRC. 

BEGIN, PRC ANAL, PROS PRC, NS PARI A, F LENGTH, S A VS PL D. 

BEGIN, PRCEPXX,PROSPRC,8LK. 

WHILE, (.NOT. (FILE (GONOGO,LO) )),OUTERLOOP. 

IFE, {.NOT. (FILE (60N0G0,L0) ) ),ENDOUTER. 

RETURN, STARTX. 

BEGIN,PRCOPTM,PROSPRC,PCONRST,PCNNNIO,SAVCOUT. 

SET(R3»1 ) 

IFE, (.NOT. (FILE(STARTX,LO) ) ),SETR2. 

SET(R2-1) 

ENDIF,SETR2. 

WHILE, ( .NOT. (FILE (CHECK, LO)) ),INNERLOOP. 

IFE, ( ( .NOT. (FILE (STARTX, LO) )) .OR. (R3.EQ.2) ),DONOTS KIP. 

BEGIN, PRCFPXX,PROSPRC. 

BEGIN,PRCANAL,PROSPRC,NSPARLA,FLENGTH,SAVSPLD. 

BEGIN,PRCEPXX, PROSPRC,BLK. 

REWIND,TCNMNIO,CNMNIO. 

COPYBF,CNMNIO,TCNMNIO. 

IFE, ( (FILE(GONOGO,LO) ) .OR . ( R 2 .NE . 2 ) ) , SK I PTOOUT . 

SKIP,ENDOUTER. 

ENDIF,SKIPTOOUT. 

ENDIF,OONOTSKIP. 

IFE, (R2.NE. 2), RERITE. 

REWIND,CNMNIO,RERITEB,SO,PASS,EDPASS2. 

SET(R2»2) 

LDSET(PRESET-ZERO) 

RERITEB,CNMNIO,,SO. 

EDIT, PASS, ,E DP ASS2, EDOUT. 

RETURN, EDOUT. 

ENDIF,PERITE. 

SET(R3-2) 

REWIN D, P AS S, CONP AP,SO,CNMN 10, EVALB, BLOCK. 

LDSET( PRESET-ZERO) 

E VAL B, CON PAR,,, PASS, SO, CNMNIO, BLOCK, CHECK. 

IFE, (FILE(CHECK,LO)), SELECT. 

RETURN, CHECK. 

RFL, 250000. 

REDUCE,-. 

R EWIND, SELECTS, BLOC K,CONREST. 

SELECTS, BLOCK,,, CON REST. 

RETURN, BLOCK, 
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REWIND>CN«NIO, TCNMNIO. 
COPYBF#TCNMNIO#CNMNID. 
SKIP^ENDOUTER. 

ENDIF, SELECT, 

ENDW, INNERLOOP. 
ENDIF,ENDOUTER . 
ENDW^OUTERLOOP. 
BEGIN#PRCEND>PROSPRC. 
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Option 1 • 3 


.PR0C#0PT13. 

IFE# (N0NREPT,EQ.1)»N0NREPEAT. 

BEGIN>PRCNRPT#PRQSPRC#POPT#NPRS»FLENGTH# INPT# NSP ARLA . 

ENDIF>NONREPEAT. 

BEGIN, PRC IN I T> PROS PRC > PORT# CON MIN»ENDP1, ENDP2, SUBS, B INOEPB, FUS D, FSDSUB . 
BEGIN, PRCGETF,PROSPRC,POPT,FRNT,FNDN,PCNPR,PSTRT,TNPT,CONS,CNT,NGRS,RGS. 
WHILE, (.NOT. (FILE (G0N060,L0) ) ),OPTION13. 

IFE, (RIG.EQ. 2), NORETURN. 

RETURN, STARTX. 

ENDIF,NORETURN. 

BEGIN,PRCQPTN, PROSPRC,PCONRST,PCNHNIO, S A VC OUT. 

BEGIN, PRCFPXX, PROSPRC . 

IFE, (FILE(INFOFIL,LO)), GRADS. 

REWIND,TENPRS,RGRS,ENDG, ENDPROC. 

COPYCF,RGRS,TENPRS. 

COPYBF,ENDG, ENDPROC. 

BEGIN, PRC ANAL, PROS PRC, NS PARL A, FL ENGT H, S AVS PL D . 

BEGIN, PRCGRDS, PROSPRC,SUBS, SAVSPLO. 

BEGIN, PRCEPXX, PROSPRC, BLK. 

ENDIF, GRADS. 

IFE, ( .NOT. (FILE(INFOFIL,LO) ) ), NOGRADS. 

REWIND,TENPRS,NGRRS,NGEND, ENDPROC. 

COPYCF,NGRRS,TEMPRS. 

COPYBF,NGEND, ENDPROC. 

BEGIN,PRCANAL, PROSPRC,NSPARLA,FLENGTH, SAVSPLD. 

BEGIN, PRCEPXX, PR OS PRC, BLK. 

ENDIF, NOGRAOS . 

RETURN, INFOFIL. 

IFE, (.NOT. (FILE(GONOGO,LO) ) ), END13. 

R E WIND, BLOC K,CONPE ST, SELECTS. 

RFL, 250000. 

REDUCE,-. 

LDSET(PRESET-ZERO) 

SELECTS, BLOCK,,, CONREST. 

ENDIF, END13. 

EN0W,0PTI0N13. 

BEGIN, PRCEND, PROSPRC. 
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Option 2.2 


•PROC#OPT22« 

Ife> (N0NREPT.E0.1)»N0NPEPEAT. 

BEGIN# PRC NR PT, PROS PRC # POPT# NRRS# FL ENGT H# I NPT# NSP AR L A , 

ENDIF, NONREPEAT. 

SET(R2-1) 

BEGIN# PRC I NIT# PROS PRC #POPT# CONN IN# ENDPl# ENOP 2# SUBS# B INOE PB# FUSD# FSDSUB . 
BEGIN#PRCGETF#PROSPRC#POPT#FRNT#ENON#PCNPR#PSTRT#INPT#CONS#CNT#NGRS#RGS. 
WHILE# (<R2.LT.10) . AND.( .NOT, (FILE(G0N0G0#LD) ) ) )#0PTI0N22. 

IFE# ( (R2.LT.10) .AND.( .NOT . ( F UE ( GONOGO# LO) ) ) )#END22. 
RFWIN0#PASS#E0PASS2. 

EDIT#PASS##EDPASS2#EDOUT. 

RETURN#CHECK#EDOUT. 

WHILE# ( .NOT. (FILE (GONOGO# LO) ) )#KEEPON. 

REWIND#CONPAR#STARTX# PAS S#CNMNIO# BLOCK# EVALB , 

LDSET(PRESET-ZERO) 

EVALB#CONPAR### PASS# STARTX#CNMNIO# BLOCK# CHECK. 

IFE# ( FILE ( CHECK# LO) )# OPT I MIZE. 

BEGIN#PRCOPTM# PROS PRC# PC ONRS T# PC NMNI D# S AVC OUT . 

SET(P2«R2+1) 

SKIP#END22. 

ENDIF#OPTIMIZE. 

BEGIN#PRCFPXX#PROSPRC. 

BEGIN# PRC ANAL# PROSPRC# NSPARLA#FLENGTH# SAVSPLD. 
BEGIN#PRCEPXX#PROSPRC#BLK. 

ENDW#KEEPON. 

ENDIF# END22. 

ENDW#0PTI0N22. 

BEGIN#PRCEND#PROSPRC . 
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APPENDIX B 


Option 2.3 


. PROC#OPT23. 

IFE# (NONREPT.EQ.D# NONREP EAT. 

8EGIN,PRCNRPT#PROSPRC>POPT#NRPS,FLENGTH>INPT#NSPARLA. 

ENDIF, NONREPEAT. 

SET(R2-1) 

BEGIN,PRCINIT> PROS PRC # PORT# CONNIN> ENDPl, ENDP 2# SUB S# B I NOEPB> FUSD» F SDSUB . 
BEGIN>PRCGETF»PROSPRC#POPT»FRNT,ENDN,PCNPR#PSTRT,INPT,CONS»CNT>NGRS#RGS. 
WHILE# {(.NOT. (FILE(GONOGO#LO))).AND. (R2.LT.10) )#DPTI0N23. 

RFWINO#STARTX#CNMNIO#CONPAR# EVALGB. 

LDSET( PRESET-ZERO) 

EVALG8#CONPAR###STARTX,CNMNIO. 

BEGIN# PRCFPXX#PROSPRC. 

BEGIN#PRCANAL#PR0SPRC#NSPARLA#FLEN6TH# SAVSPID. 

IFE# ( ( .NOT.(FILE(GONOGO#LO)) ) . AND . ( R2 . LT . 10 ) ) # END2 3 . 

BEGIN# PRCGRDS# PROS PRC# SUBS #SAVSPLD. 

BEGIN# PRC EP XX# PROS PRC# BLK. 

BEGIN# PRCOPTM# PROS PRC# PC ONR ST# PCNMNIO# S A VC OUT. 

SET(R2-R2+1) 

ENDIF#END23. 

ENOW#OPTION23. 

REWIND#STARTX#CNMNIO#CONPAR# EVALGB. 

LDSET{PRESET-ZERO) 

EVALGB# CONPAR###STARTX#CNMN 10. 

BEGIN# PRCFPXX# PROSPRC. 

BEGIN#PRCANAL#PROSPRC#NSPARLA#FLENGTH# SAVSPLO. 

BEGIN# PRCGRDS# PROS PRC # SUBS #$ AVS PLD . 

BEGIN# PRCEP XX# PROSPRC# BLK . 

BEGIN# PRCEND# PROSPRC . 
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PROCEDURE FILES 
PRCNRPT 


, PROC# prcnrpt,nropt,nrrs»flx,i>nrla. 

THE PROCEDURE CREATES A SPAR LIBRARY 
.♦ FROM THE NON-RFPEATABLE PART 

GET, SPAR«SPAR14I,0CU»DCU1AI/UN-750756N. 
GET,NRRS. 

PFL,FLX. 

REDUCE,-. 

SPAR,NRRS,NSPROUT. 

REPLACE, SPARLA-NRLA. 

.* TEST TO SEE IF GRADIENTS ARE REQUIRED 

IFF, (NPOPT.EQ.13,OR.NROPT.EQ,23),GRADIENTS. 
GET, INPT-I . 

GET, EDIT1,FDIT2,BLDELDB/UN«753437N. 

REWIND, NRRS. 

. * 

EDIT OUT ALL BUT ELD INPUT IN RUNSTREAM 

. * 

EDIT, NRRS, ,EDIT1, EDOUT, 

REWIND, NRRS. 

. * 

.♦ CREATE SPAR RUNSTREAM TO FIND DERIVATIVES 

.* 

BLDELDB, INPT,NRRS,RSOUT. 

REWIND, RSOUT. 

FDIT,RSOUT,,EDIT2, EDOUT. 

REWIND, RSOUT, SPARLA. 

.* 

.♦ EXECUTE SPAR AGAIN TO FIND DERIVATIVES OF 
.* THE STIFFNESS MATRIX WITH RESPECT TO 

.* THE DESIGN VARIABLES 

** 

SPAR, RSOUT, NSPPOUT. 

RETURN, I NPT, EDI Tl, EDI T2, BLDELDB, EDOUT. 
RETURN,RSOUT,TAPE21,TAPE22,N SPROUT. 

REPLACE, SPARLB-NRLA. 

ENDIF, GRADIENTS. 

RETURN, SPAR, DC U, SPARLA, NRRS. 
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PRCINIT 


.PROC# PRCINIT,OP>A,B>BB#NSUB»C>FSD>FSUB. 

.♦ 

.* THIS PROCEDURE FILE CREATES PROGRAMS USED BY THE 
.♦ DIFFERENT PROSSS OPTIONS. 

.* 

SET(R1G«1) 

MAP/OFF, 

.♦ CREATE CONMIN 

.* 

GET# A. 

GET#C0NMINB/UN«753A37N. 

»♦ 

.♦ TEST FOR FULLY STRESSED DESIGN REQUIREMENT 

IFE# (FSD.EQ.1)#GETFSDSUB. 

RETURN#CONMINB. 

GET# CONMINB-FSUB. 

ENDIF#GETFSDSUB. 

COPYL# A#CONMINB#CONMIN##RA. 

.♦ 

.* CREATE END PROCESSOR 
GET# B. 

GET#SCOMBLK#SPARLIB/UN«319925N. 

COPYBR#B#ENDPROC. 

COPY8R#SCOMBLK# ENOPROC. 

COPYBF#B#ENDPROC. 

IFE#<0P.EQ.13)#GEND, 

REWIND#SCOMBLK. 

GET#BB, 

COPYBR#BB#ENDG. 

COPYBR#SCOMBLK# ENDG. 

COPYBF# BB# ENDG. 

RENAME#NGEND»ENDPROC. 

ENDIF#GEND. 

.* 

.* TEST TO SEE IF OPTION USING GRADIENTS WAS CHOSEN 

. ♦ 

IFE# (OP. EQ. 13. OR. OP. EQ. 23)# GRADIENTS. 

. * 

.♦ CREATE PROGRAM FOR GENERATING REPEATABLE SPAR RUNSTREAMS 
• ^ 

GET#GNGRDRB/UN«753A37N. 

COPYBR#GNGRDPB#GREPEAT. 

.* 

.* TEST FOR BEAM OR PLATE SUBROUTINES 

.♦ 

IFE# (NSUB.NE.O)#NOSUBS. 
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GET#C. 

COPYBR#C#GREPEAT»NSUB. 

ENDIF#NOSUBS. 

COPYBF#GNGRDRB» GREPEAT. 

RETURN#GNGRDRB. 

♦ ♦ 

.♦ TEST FOR NEED TO CONVERT FORCES AND MOMENTS TO STRESSES 

.♦ 

IFE» (NSUB.NE.O), GRADIENTS. 

.* 

.* CREATE PROGRAM TO CONVERT FORCES AND MOMENTS TO STRESSES 

.* 

GET,DRVSTRB/UN«=75 3^37N. 

REWIND#SCOMBLK. 

COPYBR»DRVSTRB#FAM2STR. 

COPYBR#C#FAM2STR,NSUB. 

COPYBR>SCOMBLK,FAM2STR. 

COPYBF#DRVSTRB, FAM2STR. 

RETURN, DRVSTRB. 

ENDIF, GRADIENTS. 

GET,SPAR«SPAR14I,DCU»DCU1^I/UN«750756N. 

RETURN,SCOMBLK, A,B,C,CONMINB. 
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PRCGETF 


.PROC# PRCGETP>QP,F#E>CN,S,I#C,CT<RS,RGS. 

.* THIS PROCEDURE FILE GETS ALL THE FILES REQUIRED FOP EXECUTING 
.♦ A PARTICULAR OPTION 

.>► GET FILES USED IN ALL OPTIONS 

.♦ 

GET,EDGRDS#MERGFP> EOPASSl /UN«753437N . 

GET#FRTPROC-F# ENDIN-Ei CON PAR -CN# STAR TX-S . 

GET»CONS»C>TEMPRS«RS. 

.♦ CHANGE PASS TO 1 FOR FIRST PASS 

EOIT>PASS>#EDPASSli EDOUT. 

RETURN, EDPASSl#EDOUT. 

GET ADDITIONAL FILES NEEDED FOR OPTION 1,2 

»* 

IFE> (0P.E0.12),0PTI0N12, 

GET, EV ALB, RERITEB, SELECTS, EDPASS2/UN-753A37N. 

ENDIF,OPTION12. 

.♦ 

.♦ GET ADDITIONAL FILES NEEDED FOR OPTION 1.3 

.♦ 

IFE> (0P,EQ,13),0PTI0N13. 

GET, INPT«I,RGRS«RGS. 

RENAME, NGRRS-TEMPRS, 

GET,SELECTB/UN«753437N. 

ENDIF,OPTION13. 

.♦ 

.♦ GET ADDITIONAL FILES NEEDED FOR OPTION 2.2 

. 

IFE, (0P.EQ.22)/0PTI0N22, 

GET,EVALB,EDPASS2/UN»753A37N. 

GET,CNT-CT. 

ENDIF,0PTI0N22. 

. * 

.♦ GET ADDITIONAL FILES NEEDED FOR OPTION 2,3 

IFE>(0P.EO.23),0PTI0N23. 

GET,CNT-CT,INPT-I. 

GET,EVALGB/UN-753A37N. 

ENDIF,0PTI0N23. 
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PRCFPXX 


.PROC> PRCFPXX. 

.♦ 

.♦ THIS PROCEDURE FILE EXECUTES THE FRONT PROCESSOR 

.♦ 

REWIND>FRTPROC»CNMNIOKONS>SPFPOUT. 

LDSET(PRESET«ZERO) 

FRTPROC>CNMNIO>SPFPOUT#CONS. 
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PRCOPTM 


.PROC#PRCOPTM,C#D,F. 

.* THIS PROCEDURE FILE EXECUTES CONMIN 

• * 

RFL#250000. 

REDUCE#-. 

R£WIND#CQNPAR#STARTX#C#D#PASS»GONOGO#CDNMIN. 

LDSET( PRESET-ZERO) 

CONMIN,CONPAR#CONOUT#STARTX#C# 0# 60N060# P AS S# I NFOF I L . 
PACK(CONOUT) 

REPLACE#CONOUT»F. 

SKIPEI (CONOUT) 
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PRCANAL 


.PROC>PRCANAL>NRLA#FLX,SAVELD. 

. * 

.♦ THIS PROCEDURE FILE EXECUTES SPAR FOR THE ANALYSIS 

.♦ 

GET^SPARLA-NRLA. 

REWIND#SPARLA#RRS> MERGFP>SPFPGUT,SPAROUT>TEMPRS. 
COPYCF>TEMPRS#RRS. 

REWIND»RRS. 

• ^ 

.♦ MERGE OUTPUT FROM THE FRONT PROCESSOR INTO THE 
SPAR RUNSTREAM 

.* 

EDIT#RRS»» MERGFP, EDOUT. 

REWIND#RRS. 

RFL»FLX, 

REDUCE#-. 

SPAR#RRS#SPAROUT. 

REPLACE#SPARLD»SAVELD. 

.♦ 

,♦ SAVE INITIAL SPAR INPUT AND OUTPUT FOR LATER LISTING 

.♦ 

IFE# (R1G.EQ.1)»RENAMES. 

RENAME#SPINl-RRS#SPOUTl-SPAROUT, 

SET(RlG-2) 

ENDIFfRENAMES. 

RETURN#EDOUT,SPFPOUT. 
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PRCGRDS 


.PROC#PRCGRDS,NSUB#SAVELD. 

.* 

.♦ THIS PROCEDURE FILE CALCULATES GRADIENTS 

REWIND, INPT,CONS>CNMN 10# GREPEAT# SPARE A# SPARED. 

.♦ 

.♦ CREATE SPAR RUNSTREAM 

.♦ 

GREPEAT, INPT,CONS,CNNNTO,PSOUT. 

REWIND, RSOUT,EDGRDS. 

EDIT,RSOUT,, EDGRDS,EDOUT. 

REWIND, RSOUT. 

.♦ 

.♦ EXECUTE SPAR TO FIND STRESS DERIVATIVES 

. ♦ 

SPAR, RSOUT, SPAROUT. 

REPLACE, SPARLD-SAVELD. 

• ^ 

TEST TO SEE IF BEAM OR PLATE FORCES AND MOMENTS 
.* NEED CONVERTING TO STRESSES 

.♦ 

IFE, (NSUB.NE.O),FAMS. 

REWIN0,FAM2STR, SPARLie,CNMNIO,SPARLO,INPT,CONS. 

LOSE T( L I B-SPARL 18, PRESET- ZERO) 
FAM2STR,INPT,CDNS,CNMNIQ. 

REPLACE, SPARLO-SAVELD. 

ENDIF,FAMS . 

RETURN, SPAROUT, EDOUT, RSOUT. 
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PRCEPXX 


.PROC>PRCEPXX#BLK, 

.♦ THIS PROCEDURE FILE EXECUTES THE END PROCESSOR 

REWIND# ENDPROC# ENDINKNMN 10# BLK,SPARL I B> SP ARID. 
LDSETdIB-SPARLIB# PRESET* ZERO) 

ENDPROC# ENDIN#CNMNIO#BLK. 

R E TURN# SPARL A# SPARLC# SPARED. 
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PRCEND 


,PROC> PRCEND. 

. ♦ 

.♦ THIS PROCEDURE FILE OUTPUTS IMPORTANT FILES 

« ♦ 

REWIND>SPINl>SPOUTl#RRS>SPAROUT#CONOUT>CNMNIO. 
COPYSBF»CONOUT,TEMPL . 

COPYS8F>CNMNIO#TEMPL. 

COPYSBF>S PIN1#TEMPL . 

COPYSBF#SPOUTl, TEMPL. 

COPYSBF,RRS#TEMPL . 

COPYSBF>SPAROUT, TEMPL. 

PACK(TEMPL ) 

REWIND, TEMPL. 

REPLACE, TEMPL. 

REWIND, TFMPL. 

COPYSBF, TEMPL, OUTPUT. 
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PROGRAM LISTINGS 
CONMS1 


This is a main driver program for the CONMIN subroutine library. 


PROGRAM C ONMSK INPUT# OUT PUT# TAPP8> TAPE 7# TAPE9#TAPE11, 

1 TAPE10#TAPE12#TAPE5«INPUT#TAPE6«OUTPUT) 

C NEW CONMIN SUBROUTINE 

C0MM0N/CNMN1/DELFUN#DABFUN#FDCH#FDCHM#CT#CTMIN#CTL#CTLMIN# 
lALPHAX# AB0BJ1#THETA#0B J#NDV#NCON#NSIDE#IPRINT#NFDG#NSCAL# 
2LIN08J#ITMAX#ITRM#ICNDIR#IG0T0#NAC»INF0#INF0G#ITER 
COMMON /CNMN2/RDUM( 50 )# IDUM( 25) 

COMMON X(20)#VLB(20)# VUB (20)#G(400)#SCAL (20)#DF(20)# 
1A(20#200)#S(20)#G1(AOO)#G2(AOO)#B( 200#200)#C (200)# ISC(AOO)# 
2IC(200)#MS1(A00) 

COMMON /CONS AV/RS AV( 50)# IS AV( 25) 

NAMELIST/CONPAR/IPRINT#NOV# ITMAX#NC0N#NFD6#NSIDE#ICNDIR# 
INSCAL# LINOBJ#ITRM#FOCH#FDCHM#CT#CTMIN#CTL#CTLMIN# 
2THETA#PHI#DELFUN#DABFUN# ISC#N1#N2#N3#NA#N5# 

3ALPHAX# ABOBJl# IGOTO# VL B# VUB 
NAMELIST/STARTX/X 

NAMELIST/SAVE/IPRINT#NDV# ITMAX#NCON#NSIDE# ICNDIR#NSCAL# NFD6# 
1FDCH#FDCHM#CT#CTMIN#CTL#CTLMIN#THETA#PHI#NAC#DELFUN#DABFUN# 
2LIN0BJ# ITRM# ITER# INFOG# IGOTO# INFO# OBJ# 

3RDUM#IDUM# 

A X# OF# G# ISC# IC# A#S#G1#62#C#MS1#B# VLB# VUB#SCAL#RSAV#ISAV#NCOUNT 
5# N1#N2#N3#NA#N5#ALPHAX# ABOBJl 
NAMELIST/LINKF/NOV#X 
NAMELIST/LINKE/OBJ#G 
NAMFLIST/PASSAGE/NPASS 
READ(10#PASSAGE) 

C FIRST PASS#NPASS«1# SUBSEQUENTLY NPASS-2. 

GO T0(100#200)#NPASS 
100 CONTINUE 

READ(5#C0NPAR) 

READ(8#STARTX) 

REWIND 8 
GO TO 201 
200 CONTINUE 

READ(7#SAVE) 

REWIND 7 
READ(9#LINKE) 

REWIND 9 
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C0NMS1 (Cone. ) 


201 CONTINUE 
NPASS-2 
REWIND 10 
WRITE(10#PASSAGE) 

C SOLVE OPTIMIZATION 

CALL C0NMIN(X# VLB>VUB#G/SCAL#DF,A, S>G1>G2#B,C# 
♦ISC# IC#MSliNl#N2>N3#NA#N5) 

C FUNCTION AND CONSTRAINT VALUES 

WPITE(7,SAVE) 

WRITE(9#LINKF) 

C WRITE CONTROL CARD STORED IN PROCFILE GONOGO. 

101 FOPMAT(+GOTO#2.+) 

IF ( I GOTO. EQ.O) WRITE (11# 101) 

C WRITE ON TAPES IF GRADIENTS ARE REQUIRED 

IF(INF0.E0.2) WRITE(12»102) 

102 FORMAT{+ INFO ■ 2 *) 

IF(INF0.EQ.2)WRITE(8#STARTX) 

STOP 

END 
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C0NMS2 

This is a main driver program for the CNMIN subroutine library. 


PROGRAM C0NMS2 (INPUT# 0UTPUT»TAPE7> TAPES# TAPE 9# TAPE 10# 

1 TAPE11#TAPE12#TAPE5»INPUT#TAPE6«0UTPUT) 

C NEW CONMIN SUBROUTINE 

C0MM0N/CNMN1/0ELFUN#DABFUN#FDCH#FDCHM#CT#CTMIN#CTL# CUMIN# 
1ALPHAX#AB0BJ1#THETA#0BJ#NDV#NC0N#NSI0E# IPRINT#NFDG#NSCAl# 
2LIN0BJ# ITMAX#ITRM#ICNDIR# I GOTO# N AC# INFO# INFOG# ITER 
COMMON X(20)#VLB( 20)#VUB (20)#G(400)#SCAL(20)#DF(20)# 
1A(20#200)#S(20)#G1(400)#G2(400)#B(200#200)#C(200)#ISC(400># 
2IC(200)#MS1(400) 

DIMENSION XI (20)#GI(400)#GRDOBJ(20)#GRD6(20# 400) 
NAMELIST/CONPAR/IPRINT#NDV#ITMAX#NCON#NFDG#NSIDE#ICNDIR# 
1NSCAL#LIN0BJ# ITRM#FDCH#FOCHM#CT#CTMIN#CTL#CTLMIN# 

2 THETA, PHI# DEL FUN, DAB FUN# ISC#N1#N2# N3#N4#N5# 

3ALPHAX#AB0BJ1# IGOTn#VLB#VUB 

NAMELIST/STARTX/X#XINC 

NAMELIST/BLK/OBJ#OBJI#X# XI#G#GI#GRD0BJ#GRD6#IC0UNT 

NAMELIST/CNT/0BJ1#0BJ2#0BJ3#T0L 

BL » .7 

BU - 1*3 

LOOPCT - 50 

READ(5#C0NPAR) 

REA0(7#STARTX) 

READ(8# BLK) 

READ(9#CNT) 

REWIND 7 
REWIND 8 
REWIND 9 
NSCON ■ NCON+1 
NCON » NC0Nt(2*NDV) 

DO 28 NC ■ NSC0N#NC0N 
ISC(NC) • 1 
28 CONTINUE 

DO 100 L00P-1#L00PCT 
C SOLVE OPTIMIZATION 

CALL C0NMIN(X,VLB#VU8#G#SCAL#DF# A# S#G1#G2#B#C# 

♦ ISC# IC# MS1#N1#N2#N3#N4#N5) 

C FUNCTION AND CONSTRAINT VALUES 

IF(INF0.EQ.2) GO TO 24 
OBJ-OBJI 
DO 9 IJ»1#NC0N 
9 G(IJ)»GI(IJ) 

DO 10 I»1,NDV 
DXI»X(I)-XI(I) 

OBJ-OBJ+GRDOBJ(I)+DXI 

DO 20 J«1#NC0N 

G( J)»G( J)+GRDG(I# J)*DXI 
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C0NMS2 (Cone. ) 


20 CONTINUE 
10 CONTINUE 
NSDV ■ 0 

DO 15 NC ■ NSC0N,NC0N#2 
NSDV ■ NSDV+1 

G<NC) - l.-X(NSDV)/(BL*XI(NSDV)) 
G(NC+1) - X(NSDV)/(BU*XI(NS0V))-1. 

15 CONTINUE 
GO TO 70 

24 CONTINUE 

DO 23 IDF - 1,NDV 
DF(IOF) - GROOBJ(IDF) 

23 CONTINUE 
NSDV - 0 

DO 25 NC»NSCON#NCON# 2 
NSDV ■ NSDV+1 

GRDG(NSDV>NC) « -1 . / ( BL^ X I ( N SDV ) ) 
GRDG(NSDV>NC+1) « 1 . / ( BU^X I ( NSDV ) ) 

25 CONTINUE 
NAC-0 

DO 30 J«1>NC0N 
IF(G( J) .LT.CTL )G0 TO 30 
NAC-NAC+1 
IC(NAC)«J 
30 CONTINUE 

DO 40 II»1#NDV 
DO 50 JJ»1>NAC 
J1-IC( JJ) 

A{ II, JJ )-GRDG( II> J1 ) 

50 CONTINUE 
40 CONTINUE 
70 CONTINUE 

IF( IGOTO. EQ.0)GD TO 200 
100 CONTINUE 
200 CONTINUE 

WRITE(7,STARTX) 

TOL-DELFUN 
OB J3«0BJ2 
0BJ2-0BJ1 
OB Jl-OBJ 
WRITE(9,CNT) 

DA«ABS( (0BJ3-0BJ2)/0BJ2) 

DB«ABS( (0BJ2-0BJ1 )/0BJ2) 

IF(DA.LE.TOL .AND. DB.LE. TOD WRITE (10,1) 
1 FORMAT(*TERMINATED,+) 

STOP 

END 
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FPROC 

This is an example listing of a front processor program. 


PROGRAM FPFGSK INPUT# OUTPUT# TAPE?# TAPE5- INPUT, TAPE6-0UTPUT) 
SPAR FRONT PROCESSOR READS DESIGN VARIABLES AND 
PRINTS THEM IN SPAR SECTION PROPERTY FORMAT 
FUSELAGE MADE OF ROD BEAM MEMBRANE ELEMENTS 
DIMENSION X(50) 

NAMELIST/LINKF/NDV#X 
NDV-NUMBER OF DESIGN VARIABLES 
X(NDV)»DESIGN VARIABLES 

DV«S ARE X(l)«SECTIONAL AREA OF STRINGER PODS 
X(2)«NONOIMENSIONAL AREA OF BEAM 
X(3)-THICKNESS OF MEMBRANE PANEL 
READ(7#10) B10#B20#T0 
10 F0RMAT(3F10.3) 

READ(5#LINKF) 
xiNi-i./xm 
XIN2«1,/X(2) 

XIN3-1./X{3) 

C WRITE E23 ELEMENTS 

PRINT 200 

200 F0RMAT(t E23 SECTION PROPERTIES^) 

PRINT 201#XIN1 

201 FORMAT!* 1 *#F8.3) 

C COMPUTE VALUES FOR DSY CARDS 
C WRITE E21 ELEMENTS 
PRINT 202 

202 FORMAT!* F21 SECTION PROPERTIES*) 

AREA0-!2.*B10+B20)*T0 

AREA-AREAO*XIN2 

SCALE-SORT! AREA/AREAO) 

B1»B10*SCALE 
B2-B20*SC ALE 
T»T0*SCALF 

EIl-81*(B2+2 .*T)**3/12 .-!Bl~T)*B2*+3/12. 

ALPHAl-0. 

C«!B2+2.*T)*Bl**2/2.-B2*!Bl-T)*! Bl+T)/2. 

C-C/AREA 

EI2»2.*T*Bl**3/12.+2.*T*Bl*!Bl/2.-C)**2 
l+B2*T**3/12.+82*T*!C-T/2. )**2 
ALPHA2-0* 

F« !2 ,*Bl+B2)*T**3/3, 

Fl-0. 

Zl- ! !B1*B2)**2)*T/!A.*EI1 )+C~T/2. 

Z2-0* 

THETA-0. 

01 - 0 . 

Q2-0. 

03-0. 

Y11--!B1-C) 

Y12-.5*B2+T 
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FPROC (Cone.) 


Y21-C 

Y22» .5*B2+T 
Y31«C 

Y32»-( .5%B2+T) 

Y^1«-(B1-C) 

Y^2»-( .5«B2+T) 

J“ 1 

PRINT 103#J>EI1>ALPHA1,EI2#ALPHA2#AREA 
PRINT 1003>F, FI, Z1#Z2, THETA 
103 FORMAT(+DSY*, I2,5E12.4,*?*) 

1003 F0RMAT(1X,5E13.5) 

PRINT 104,01,Q2,Q3,Y11,Y12,Y21 
lOA F0RMAT(1X,6E12.4,*?*) 

PRINT lOOA, Y22,Y31,Y32,Y41,Y42 

1004 F0RNAT(1X,5E12.4) 

C WRITE E41 ELEMENTS 

PRINT 300,XIN3 

300 FORMAT(« SHELL SECTION PROPERTIES*/* 1*,F8.3) 
STOP 
END 
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EPROC 


This is an example listing of an end processor program. 


PROGRAM EPFUS(INPUT>TAPE6>TAPE8> TAPE5-INPUT>nUTPUT) 
DIMENSION A(A500)#B(1^00) 

DIMENSION Al(<f00) 1(400) ^CK'^OO) 

DIMENSION G(400) 

NAMELIST/EPIN/E23AL>E21AL,E41AL»NSE23>NSE21,NSE41 

NAMELIST/LINKE/OBJ,G 

READ(5>EPIN) 

CALL DAL< 4» 11» A ( 1 ) , 0# I E A# K ADR> I ERR # NWOS, NE> L B# ITYPE# 
14H0BJF,3HAUS#1#1) 

08J«A(1) 

CALL DAL(4#11# A(1)#0#IEA#KADR>IERR#NWDS>NE#LP>ITYPE# 
14HSTRS#3HE23j1#1) 

H«1 

INL-6+NSE23 
DO 2 IN-6»INL#6 

I- Il 

A1(I1)-A{ IN) 

G(I)»ABS(A1(I1))/E23AL>1. 

II- Il+l 

2 CONTINUE 

CALL DAL (4# 11» A ( 1 ) , 0# I E A, K ADR# TE RR# NWD S# NE> L B, I T YPE> 
14HSTRS»3HE21#1,1) 

Jl-1 

KNL1«(NSE21-1)«52 + 6 
DO 4 IM«5#KNL1#52 
Bl( J1)»ABS(A(IM) ) 

Al( J1)-ABS(A(IM + D) 

I-Il+Jl-1 
GNUM-BK Jl) 

IF(A1(J1).GT.B1(J1) )GNUM-A1(J1) 

G(I)«GNUM/E21AL-1. 

Jl-Jl+1 
4 CONTINUE 

CALL DAL{4#11, A(1),0# IEA#KADP#IERP#NWDS#NE#LB# ITYPE# 
14HSTRS#3HE41,l#l) 

Kl»l 

LNL1-(NSE41X<23) 

DO 10 NP«21#LNL1# 23 
CKKl)-A(NP) 

B1(K1)-A(NP+1 ) 

Al(Kl)-A(NP + 2 ) 

I-Il+Jl+Kl-2 

GNUM«SQRT(Cl(Kl)t'*'2 + Bl(Kl)*^2-Cl(Kl)*Bl(Kl)+3.*Al(Kl)4*2) 
G(I)»GNUM/E41AL-1. 

Kl-Kl+1 
10 CONTINUE 

CALL FIN(0#0) 

REWIND 6 
WRITE(6#LINKE) 

STOP 

END 
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PROGRAfi EVALS ( INPUT, OUTPUT, TAPES- INPUT# TAPE?# 

1TAPE8, TAPE9, TAPE10,TAPE11 ) 

DIMENSION X(20),XI(2O),G(A00),GnAO0),GRD0BJ(?O),6RDG(20,^0O) 
DIMENSION ISC( A00),VLB(20),VUB<20) 

NAMELIST/CONPAR/IPRINT,NDV, ITMAX,NCON,NFDG,NSIDE, ICNOIR, 
1NSCAL,LIN0BJ, ITRM, FDCH, F DCHM, C T, CT MI N, C TL, C TL M IN, 
2THETA,PHI,DELFUN,DA8FUN, ISG,N1,N2,N3,NA,N5, 

3ALPHAX, ABOBJl# I GOTO, VLB, VUB 
NAMELIST/PASSAGE/NPASS 
NAMELIST/STARTX^X,XINC 
NAMELlST/LINKE/OBJ,G 
NAMELIST/LINKF/NDV, X 

NAMFLIST/BLK/OBJ,OBJI, X, XI,G,GI,GPDnBJ,GRDG, ICOUNT 
READ (5,CDNPAR ) 

REWIND 5 
READ(7, PASSAGE ) 

REWIND 7 
READ (8, STARTX) 

REWIND 8 

GO Tn(100,200),NPASS 
100 CONTINUE 
ICOUNT-0 
DO 1000 I-1,NDV 
XI ( I )-0.0 
G(I)»0.0 
GI (I )-0.0 
GRDOBJ ( I ) -0.0 
DO 1001 J«1,NC0N 
GRDGd, J)»0.0 
1001 CONTINUE 
1000 CONTINUE 
OBJ-0.0 
OB JI-0.0 
NPASS-2 

WRITE(7, PASSAGE) 

GO TO 201 
200 CONTINUE 

READ<10,BLK) 

REWIND 10 
READ(9,LINKE) 

REWIND 9 

IFdCOUNT.NE.DGO TO 300 
OBJI-OBJ 
DO 10 J-1,NDV 
10 XKJ)-X(J) 

DO 20 K-1,NC0N 
20 GnK)»G(K) 

GO TO ^00 
300 I-ICnUNT-1 
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DELTX»X(I)-XI(I) 
GRD08J(I)-(0BJ-08JI)/DELTX 
DO 30 L«1,NC0N 

GRDG(I#L)-(G(L)-GnL) )/DELTX 
30 CONTINUE 
X<I)-XI(I) 

AOO X( ICOUNT) -X( IC0UNT)*(1.-XINC) 
LIN-NDV+1 

IF { ICOUNT. EQ.LIM) WRITE (11,401) 
REWIND 11 

401 F0RMAT(«60TQ,7.*) 

201 CONTINUE 

ICOUNT-ICOUNT-H 

WRITE(10,BLK) 

REWIND 10 
WRITE(9,LINKF) 

REWIND 9 

STOP 

END 
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PROGRAM FSDS (INPUT, OUT PUT#TAPE8> TAPE?, TAPE9, TAPEll, 

1 TAPE10,TAPE5«INPUT,TAPE6»=0UTPUT) 

C NEW CONMIN SUBROUTINE 

COMMON/CNMNl/DELFUN,DABFUN, FDCH, FDCHM,CT,CTMIN,CTL,CTIMIN, 
1ALPHAX,AB0BJ1,THETA,0BJ,NDV,NC0N,NSIDE, IPRINT,NFDG»NSCAL, 
2LINOBJ,ITMAX,ITRM,ICNDIR,IGOTO,NAC,INFO, INFOG, ITER 
COMM0N/CNMN2/RDUM(5O), IDUM(25) 

COMMON X(20),VLB(20),VUB(20),G(A00),SCAU20),DF(20), 
1A(20,200),S(20),G1(AOO),62(AOO),B(200,200),C (200),ISC(A00), 
2IC (200),MS1( AGO) 

C0MM0N/C0NSAV/RSAV(50),ISAV(25) 

NAMELIST/CONPAR/IPPINT,NDV, ITMAX,NCON, NFDG,NSIDE,ICNDIR, 
1NSCAL,LINDB J,ITRM,FDCH,FDCHM,CT,CTMIN,CTL,CTIMIN, 

2THETA, PHI,DELFUN,DABFUN, ISC,N1,N2,N3,NA,N5, 

3ALPHAX, ABOBJl, IGOTO, VL B, VUB 
NAMELIST/STARTX/X 

NAMELIST/SAVE/IPRINT,NDV, I TM AX, NC ON, NS IDE, IC ND IR, NSC Al, NFDG, 
lFDCH»FDCHM,CT,CTMIN,CTL,CTLMIN,THETA,PHt,NAC,DELFUN,DABFUN, 
2LINOBJ, ITRM, ITER, INFOG, IGOTO, INFO, OBJ, 

3RDUM, IDUM, 

AX,DF,G, ISC, IC, A,S,G1,G2,C,MS1,B,VLB, VUB,SCAL,RSAV,ISAV,NCOUNT 
5,N1,N2,N3,N4,N5,ALPHAX,ABDBJ1,0BJ1,0BJ2,0BJ3 
NAMELIST/LINKF/NDV, X 
NAMELIST/LINKE/OB J,G 
NAMELIST/PASSAGE/NPASS 
READCIO, PASSAGE) 

C FIRST PASS, NPASS-1, SUBSEQUENTLY NPASS-2. 

GO T0(100,200),NPASS 
100 CONTINUE 

READ(5,C0NPAR) 

READ(8,STARTX) 

DO 300 K»1,NC0N 
G( I )»0.0 
300 CONTINUE 
IGOTO-1 
OB.Jl.-l, 

0BJ2«1. 

0BJ3-1 . 

GO TO 201 
200 CONTINUE 

READ(7,SAVE) 

REWIND 7 
READ(9,LINKE) 

OB J1«0B J2 
0BJ2-08J3 
OB J3-0BJ 

0INC1«ABS(1.-0BJ1/0BJ2) 

OINC2»ABS(l.-OBJ2/OBJ3) 

0INC3«ABS(1.-QBJ3/0BJ) 
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IF (OINCl.LT.DELFUN. AND.0INC2 .lt. DELFUN. AND. 
10INC3.LT.DELFUN) IGQTO-0 
201 CONTINUE 
NPASS-2 
REWIND 10 
WRITE(10» PASSAGE) 

C SOLVE FSD PROBLEM 

CALL FSDSUB(X#DF>G» ISC#IC, A,S,G1>G2>C»MS1»B, VLB# VUB 
1#SCAL#N1#N2»N3#NA#N5) 

C FUNCTION AND CONSTRAINT VALUES 

WRITE(7»SAVE) 

WRITE(9#LINKF) 

C WRITE CONTROL CARO STORED IN PROCFILE GONOGO. 

101 F0RMAT(>i'G0T0#2.*) 

IF(IG0T0.EQ.0)WRIT£(11#101) 

STOP 

END 


67 



APPENDIX D 


FSDSUBS 


SUBROUTINE FSOSUB ( X> DF,G> ISC#IC>A# S> G1 # G2, C> MSI, 8> VLB, VUB 
1,SCAL,N1,N2,N3,NA,N5) 

COMMON/CNMNl /DEL FUN, DA BFUN, FDCH, FDCHM,CT,CTMIN, CTL, CUMIN, 

1 ALPHAX,AB0BJ1,THETA,0BJ,NDV,NC0N, NSIDE,IPRINT,NFDG,NSCAL, 

2 LIN08J, ITMAX, ITRM,ICNDIP,IGOTO,NAC, INFO, INFOG, I TER 
C0MM0N/CNMN2/RDUM( 50),IDUM(25) 

DIMENSION X(20),VLB(20), VUB(20),G(400),SCAL{20),DF(20), 
1A(20,200 ),S< 20 ),Gl(AOO), 62(400), 8(200, 200 ) , C ( 200 ) , I SC ( 400 ) , 
2IC (200), MSI (400) 

C0MM0N/C0NSAV/RSAV(50),ISAV(25) 

WRITE(6,5) (X(I), I»1,NDV) 

5 FORMATdHl, ♦DESIGN VARIABLES INTO FSDSUB AR E ♦, /3 ( IX, E13 . 5 ) ) 
DO 1 I»1,NC0N 
G(I)»G(I)+1. 

1 CONTINUE 

DO 20 I - 1,NDV 
X(I) - l./X(I) 

20 CONTINUE 

X0-1./VUB(1) 

NSE23-58 

ISTPT-1 

IEND-ISTRT+NSE23 
DO 2 I-ISTRT,IEND 
XNEW«X(1)*G(I ) 

IF(XNEW.LE.XO) 60 TO 2 
y n M X N P W 

WRITE(6,12) I,G(I),XO 

12 FORMATdX, ♦CONSTRAINT NUMBER ♦, 1 5 / IX, ♦C ONSTR A INT • ♦,E13.5/ 
1 IX, ♦NEW DESIGN VARIABLE * ♦,E13.5//) 

2 CONTINUE 
X(1)«X0 
X0-1./VU8(2) 

NSE21-76 
ISTRT«NSE23-d 
IEND-ISTRT+NSE21 
DO 4 I-ISTRT,IEND 
XNEWiX(2)^G(I) 

IF (XNEW.LE.XO) GO TO 4 
XO-XNEW 

WRITE(6,12) I,G(I),XO 
4 CONTINUE 
X(2)«X0 
X0»1./VUB(3) 

NSF41-56 

ISTRT-NSE23+NSE21+1 
IEND-ISTRT+NSE41 
DO 6 I-ISTRT,IEND 
XNEW-X(3)^G(I ) 

IF(XNEW.LE.XO) GO TO 6 
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XO-XNEW 

WRITE(6,12) I>G(I)#X0 
6 CONTINUE 
X(3)»X0 

00 30 I ■ 1#NDV 
X(I) « l./X(I) 

30 CONTINUE 

WRITE(6>10) (X(I)i I-1,NDV) 

10 FORHATI ////IX, ♦DESIGN VARIABLES FRON FSOSUB AP £♦, / 3 ( 1 X, E 1 3 . 5 ) ) 
RETURN 
END 
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PROGRAM SELECTS(INPUT#0UTPUT#TAPE5«INPUT#TAPF6) 

DIMENSION X{20)#VLB(20)#VU8(20)#G( A00)#SCAL(20)»DF(20)# 
1A(20#200)>S(20)# GK400)# G2 { AGO ) > B ( 200> 200 ) > C ( 200 ) > I SC t AGO ) > 
2IC (200)>MS1(A00) 

DIMENSION XI (20),GI (A00),GRD0BJ(20)>GRD6(20# AGO) 

DIMENSION RDUM(50)^RSAV( 50),IDUM(25)>ISAV(25) 
NAMELIST/SAVE/IPRINT>NDV> ITMAX,NCON,NSIDE, ICNDIR#NSCAL#NFDG> 
1FDCH^FDCHM>CT,CTMIN,CTL>CTLMIN>THETA> PH I > NAC# D EL FUN, DABFUN> 
2LINQ8J, ITRM,ITER, INFOG, I GOTO, INFO, 08 J , 

3RDUM,IDUM, 

AX,DF,G, ISC, IC, A,S,G1,G2,C, MSI, 8, VLB, VUB, SC AL, RS AV, I S AV, NCOUNT 
5,N1,N2,N3,NA,N5,ALPHAX,'AB0BJ1 
NAMELIST/BLK/0BJ,08JI, X, XI,G,6I,GRD0BJ,GRDG, ICOUNT 
RFAD(6,SAVE) 

REWIND 6 
READ(5,BLK) 

OBJ-OBJI 
DO 25 I«1,NDV 
X(I)-XI(I ) 

DF(I )-GRDOBJ(I) 

25 CONTINUE 
NAC«0 

DO 30 J-1,NC0N 
G( J )«GI ( J ) 

IF(G(J) .LT.CTUGO TO 30 
NAC-NAC+1 
IC (NAC )«J 
30 CONTINUE 

DO AO II-1,NDV 
DO 50 JJ«1,NAC 
J1-IC( JJ) 

A{ II, JJ )«GRDG( II, J1 ) 

50 CONTINUE 
AO CONTINUE 

WRITF(6,SAVE) 

STOP 

END 
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PROGRAM RERITES( INPUT> TAP E5- INPUT, TAPE6) 
DIMENSION X(20) 

NAMELIST/LINKF/NDV, X 
NAMELIST/STARTX/X,XINC 
DATA XINC/0.1/ 

READ(5,LINKF) 

WRITF(6,STARTX) 

STOP 

END 
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PROGRAM BL DELDS { T AP E5> TA PE23, TAPE 20>TA PE 21> TAPE 22# OUTPUT) 

THIS PROGRAM CREATES A RUNSTREAM THAT WILL CREATE 
DMDV AND. DKDV FOR PARTICULAR ELEMENTS USED DESIGN VARIABLES 

DIMENSION EL (999)#NSECT(999)#TNAME1(8)#TNAME2( 8)#F0R(9) 

DIMENSION N0DVPE(999) 

DATA E21#E22#E23#EA1,E43#EA4/3HE21#3HE22#3HE23#3HEA1#3HEA3#3HEAA/ 
DATA E31# E33/3HE31#3HE33/ 

DATA TNAMEl/AHDEF #AHGD # AHGTIT#AHDIR #AHNS #3*AHELTS/ 

DATA TNAME2/5+AH # AHN AME# AHNNOD# AHI SC T/ 

DATA START#END#XNSECT/AH$STA#AH$END# AHNSEC/ 

DATA YNSECT/3HNSE/ 

CALL SUBROUTINE TO REMOVE BEGINNING BLANKS 
CALL REMOVE 
READ INPUT 

NOEL-NUMBER OF ELEMENTS 
NOOV-NUMBER OF DESIGN VARIABLE ELEMENTS 
VORB»TYPE OF ANALYSIS (EX. BUCKLING) 

NDF-NUMBER OF DEGREES OF FREEDOM PER JOINT 
EL - ELEMENT NAMES CONTAINING DESIGN VARIABLES 
(EX. E21) 

NSECT - LAST SECTION NUMBER USED FDR EACH DESIGN VARIABLE 
NODVPE - NUMBER OF DESIGN VARIABLES PER ELEMENT 

READ (5# 5) NOLC#NODV# IS NOLC# JOINTS# NDF# NOEL# VORB 

5 F0RMAT(6(1X#IA)#1X#AA) 

READ(5#6) (EL(I)#NSECT(I)#NOOVPE(I)#I»l#NOEL) 

6 F0RMAT(6(1X#A3#1X#I3#1X#I3)) 

NDE-NDF+NDF 
WRITE(20#2) 

2 FORMAT(*[XQT TAB+/+ UPDATE»lt) 

LOOP ON NUMBER OF ELEMENTS 

DO 30 I ■ 1#N0EL 
C 

C CALL SUBROUTINE TO UPDATE TAB BY SETTING DESIGN VARIABLES 
C TO UNITY. 

C KCNT RETURNS THE NUMBER OF POSSIBLE DESIGN VARIABLES FDR 
C A PARTICULAR ELEMENT. 

C KCNT-99 MEANS THE ELEMENT NAME IS BAD 
C 

CALL TABNPUT(EL( I)#NSECT( I)#KCNT) 

IF(KCNT.NE.99) GO TO 30 
PRINT 29#EL(I) 
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29 F0RMAT(t ELEMENT NAME +#A3>* DOES NOT EXISTS) 

60 TO 190 

30 CONTINUE 

CONCLUDE UPDATE AND SET UP DISABLES 

WRITE{20#31) 

31 F0RMAT(^ UPDATF-0*) 

WRITE(20> 32) 

32 F0RMAT(+CXQT DCU^/* COPY 1#2*) 

DO 35 I - 1,8 
IF<I.GT.A) GO TO 33 
DO 37 J « 1#N0EL 
TNAME2(I)-EL( J) 

WRITF(20>3A) TN AME 1 ( I ) > TN AME 2 ( I ) 

37 CONTINUE 
GO TO 35 

33 WRITE(20#3A) TNAMEl ( I ) #TNAME2 ( I ) 

3A FORMAT!* DISABLE 1# *# A A, 1 X# AA ) 

35 CONTINUE 

SET COUNTER FOR TOTAL NUMBER OF DESIGN VARIABLES 

lELCNT « 0 
ICNTDV ■ 1 
ISW-0 

ISAVCNT « 0 

READ IN RUNSTREAM AND CHECK FOR START OF A DESIGN VARIABLE 
39 JCNT ■ 0 

AO READ(21#50) ( F OP ( J ) # J- 1# 9 ) 

50 FORMAT! AA,A6,7A10) 

IF!E0F!2D) 170,60 
60 IF!F0R!l) .EQ. START) GO TO 70 
WRITE!20,50) ! FOR ! J ), J-1, 9) 

GO TO AO 

70 IF!ISW.EQ.l) WRITE!20,75) 

75 FORMAT!*CXQT ELD*) 

ISW-1 

READ!21,80) ! F OR ! J ) , J ■ 1, 9 ) 

80 FORMAT! A3, A7,7A10) 

SET ICNT - NUMBER OF POSSIBLE DESIGN VARIABLES FOR AN ELEMENT 

ICNT-99 
C 

C DETERMINE POSSIBLE NUMBER OF DESIGN VARIABLES PER ELEMENT 
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IF(F0R(1) .E0.E23.0R.F0R(1) .E0.E41.0R.FDP(1) .EO.E^A) ICNT-1 
IF(F0R(1 ) ,EQ.E31) ICNT«1 
IF(F0R(1).E0.E?1) ICNT-A 

IF{F0R(l).E0.EA3.nR.F0R(l ) .EQ.E33) ICNT -12 

IF(F0R(1) .E0.E22) ICNT-21 

TNAME«F0R<1) 

IF(ICNT.E0.99) TNAME-SAVNAM 
JCNT ■ JCNT+1 

IF( ICNT.NE.99) I ELCNT- lELCK^T + l 

SET UNIT . 20 IF ONLY ONE DESIGN VARIABLE PER ELEMENT 
OTHERWISE SET UNIT « 22 (SCRATCH UNIT) 

IUNIT-22 
REWIND 22 

IFdCNT.EQ.l) IUNIT-20 

IF(ICNT.EQ.99.AND.ISAVCNT.EQ.l ) IUNIT-20 

CHECK FOR REPEAT OF ELEMENT NAME 

IF{ ICNT.NE.99) GO TO 86 
WRITE! IUNIT>85) SAVNAM 
85 F0RMAT(A3>77X) 

GO TO 860 


READ DATA FROM UNIT 21 AND WRITE DATA ON UNIT 20 OR 22 
DEPENDING UPON VALUE OF ICNT 


86 WRITE(IUNIT>50) ( FOR ( J ) » J -1 , 9) 

SAVNAM-FOR(l) 

ISAVCNT-ICNT 

GO TO 87 

860 ICNT « ISAVCNT 
GO TO 870 

87 READ(21#50) ( F OR ( J ) , J ■ 1, 9 ) 

870 IF(FORd) .EO.XNSECT.OP.FOP(l).EO.YNSECT) GO TO 88 
IF(FORd) .EQ.END) GO TO 110 
WRITE(IUNIT,50) ( FOR ( J ) # J - 1, 9 ) 

GO TO 87 

88 IP1-NSECT(IELCNT)+JCNT 
WRITEdUNIT»90) IPl 

90 F0RMAT(*NSECT»*>I3#71X) 

100 READ(21#50) ( F OR ( J ) ^ J - 1 » 9 ) 

IF(FORd).EC.END) GO TO 110 
WRITE(IUNIT#50) ( FOR ( J ) > J - 1> 9) 

GO TO 100 
C 

C SKIP THIS IF MORE THAN ONE DESIGN VARIABLE PER ELEMENT 
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C 

110 IF( ICNT.NE.l) GO TO 120 

CALL SUBROUTINE TO CREATE REMAINDER OF RUNSTREAM 

CALL CRRS( ICNTDV>0>0, TNAME>NOF>NODVPE ( lELCNT ) ) 

ICNTDV ■ ICNTDV + NODVPEdELCNT) 

GO TO 39 

LOOP ON POSSIBLE NUMBER OF DESIGN VARIABLES PER ELEMENT 
READ FROM UNIT 22 

WRITE ON UNIT 20 

120 DO 160 I ■ 1#ICNT 

IFd.NE.l) WRITE(20,75 ) 

REWIND 22 

130 READ(22,50) ( FOR ( J ) , J« 1> 9 ) 

IF(E0F(22)) 150>140 

1^*0 IF(F0R(1).EQ.XNSECT.0R.F0R(1),EQ.YNSECT) GO TO lAl 
WRITE(20#50) (FOR( J)# J-l#9) 

GO TO 130 

lAl WRITE(20,90) IPl 
GO TO 130 

CALL SUBROUTINE TO CREATE REMAINDER OF RUNSTREAM 

150 CALL CRRS (ICNTDV# ICNT# If TNAMEfNDF^ NODVPE (lELCNT) ) 

IPl-IPl+1 
160 CONTINUE 

ICNTDV ■ ICNTDV+NODVPE ( lELCNT) 

GO TO 39 

170 WRITE(20#180) 

180 FORMAT!* TOC 2*/*CXQT EXIT*) 

190 STOP 
END 

SUBROUTINE TABNPUT{ ELNAME#NSCT# ICNT) 

C 

C THIS SUBROUTINE CREATES TAB PROCESSOR INPUT FOR A RUNSTREAM 
C DEPENDING UPON ELEMENTS USED, 

C ALL DESIGN VARIABLES ARE SET TO UNITY. 

C ICNT • NUMBER OF DESIGN VARIABLES FOR A PARTICULAR ELEMENT 
C ICNT ■ 99 MEANS THE ELEMENT NAME IS BAD 
C 

DIMENSION ELEMENT(21) 

DATA E21# E22»E23# EA1#E^3# EA4/3HE21#3HE22#3HE23#3HEA1#3HEA3#3HE<»4/ 
DATA E31# E33/3HE31#3HE33/ 

DATA BA#BB#BC#SA#SB/2HBA#2HBB,2HBC#2HSA#2HSB/ 

IF(ELNAME.EQ.E21) ELID-BA 
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IF(ELNAME.E0.E22) ELID-BB 
IF(ELNAME.EO.E23) FLID-BC 

IF(ELNAME.EQ.EA1.0R.ELNAME.EQ.EA3.0R.ELNAME.EQ.E31.0R. 

1 ELNAME.EQ.E33) ELID-SA 
IF(ELNAME.EQ.EAA) ELID-SB 
WRITE(20>10) ELIO 
10 F0RMAT(2X,A2) 

ICNT-99 

IF(ELNAME.EQ.E23.0R.ELNAME.EQ.E41.0R.ELNAME,EQ.EAA) 60 TO 30 
IF(ELNAME.E0.E31) 60 TO 30 
IF(ELNA^*,E.EQ.E2^) 60 TO 50 

IF(ELNAME.E0.E43.0R.ELNAME.EQ.E33) GO TO 100 
IF( ELNAME.E0.E22) 60 TO 150 
PRINT 20#ELNAMF 

20 F0RMAT(* ELEMENT NAME ♦^A3>* DOES NOT EXIST*) 

GO TO 210 

ELEMENT NAMES E23 p E31 p E41 p E44 
ICNT » 1 

30 K-NSCT+1 

WRITE(20#40) K 
40 FORMATdX, 13,* 1.0*) 

ICNT-1 
GO TO 210 

ELEMENT NAME E21 
ICNT ■ 4 

50 DO 90 I ■ 1,4 
DO 60 J » 1,10 
ELEMENT! J)-0.0 
60 CONTINUE 

IF(I.EQ.l) ELEMENT(1)-1.0 
IF(I.EQ.2) EL£MENT(3)«1.0 
IF(I.E0.3) ELEMENT(5)»1.0 
IF(I.EQ.4) ELEMENT(6)-1.0 
K-I+NSCT 

WRITE (20, 70) K, (ELEMENT! J ),J«1, 10) 

70 FORMAT!* OSY * , I 1 , 10 ( IX , F 3 , 1 ) ) 

WRITE(20, 80) 

80 F0RMAT(2X,11!*0.0 *)) 

90 CONTINUE 
ICNT-4 
GO TO 210 

ELEMENT NAMES E33 , E43 
ICNT - 12 
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100 DO 140 I ■ l,iz 
DO 110 J « 1#12 
ELEMENT(J)-0.0 
110 CONTINUE 

ELENENTd )-l.E-06 

ELEMENT(3)«l.E-06 

ELEMENT(6)«l.E-06 

ELEMENT(7)-l.E-06 

ELEMENT{9)-l.E-06 

ELEMENT<12)«l.E-06 

ELEMENKD-l. 

K-I+NSCT 

IF(I.EO.l) WRITE(20,115) 

115 FORMAT!* FORMAT-UNCOUPLED*) 

WRITE(20» 120) K 

120 F0RMAT(2X, I2#1X#9(*1.0 *)) 

WRITE(20, 130) (ELEMENT(J), J-1,6) 

130 F0RMAT(1X#6(1X#E10.2) ) 

WRITE! 20# 130) ! EL EM ENT ! J ) , J-7» 12 ) 

140 CONTINUE 
ICNT-12 
GO TO 210 

ELEMENT NAME E22 
ICNT • 21 

150 DO 200 I • ItZl 
DO 160 J • 1,21 
ELEMENT! J)-0.0 
160 CONTINUE 
K-I+NSCT 
ELEMENT!I)-1. 

WRITE!20, 170) K, ELEMENT!!) 

170 F0RMAT!2X, I2,1X,E10,2) 

KK-2 

DO 190 J - 2,6 
L-KK+J-1 

WRITE! 20, 180) ! EL E MENT ! N ) , N-KK, L ) 

180 F0RMAT!2X,6!F3.1,1X) ) 

KK-KK+J 
190 CONTINUE 
200 CONTINUE 
ICNT-21 
210 RETURN 
END 

SUBROUTINE CRRS ! ICNTOV, ICNT, J,TNAME, NDF, NODVEl ) 
C 

C THIS SUBROUTINE CREATES REMAINDER OF RUNSTREAM 
C TO FIND DMDV AND DKDV. 
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USE NAMES 

DMDV DIAG 0 I AND 
DKDV SPAR 25 I 

WHERE I ■ 1 TO NUMBER OF POSSIBLE DESIGN VARIABLES 

DIMENSION BA(A)#BB(21)#SAEL(12)#TNAMF1(9)#TNAME2(9) 

DATA DK,DM#CK#CM#SK#SM/2HDK>2HOM#2HCK>2HCM>2HSK>2HSM/ 

DATA DV/2HDV/ 

DATA BB/2H11,2H21>2H22>2H31#2H32#2H33#2HA1,2H42,2HA3> 

1 2HAA#2H51#2H5?»2H53#2H54,2H55f 2H61»2H62#2H63#2H6A>2H65# 

2 2H66/ 

DATA SAEL/2H11#2H12#2H22#2H13>2H23»2H33>2HAA#2HA5#2H55# 

1 2HA6>2H56,2H66/ 

DATA DEM/IOHDEM DIAG 0/ 

DATA KSP/7HK SPAR / 

DATA CHA/9HCHANGE Z»l 
DATA C0P/9HC0PY 1,2 / 

DATA BA/2HIX,2HIY,2HDA,2HJ0/ 

DATA TNAMEl/AHDEF ,AHGD , AHGT IT, AHE LTS> AHNS ,AHKMAP# 

1 AHAMAP,AHMASK# AHDIR / 

DATA TNAME2/3+AH ,AHMASK,3+AH ,AHEFIL»AH / 

DATA DMDV, DKDV, SPAR/AHDMDV>AH0KDV, 6H SPAR / 

DATA DIAG/6H DIAG / 

JCNTOV • ICNTDV 

XQT E > EKS # TOPO > K , DCU 

WRITE(20,10) 

10 F0RMAT(*tXQT E+Z+CXOT EKS*/*CXQT TOPOA/^tXOT K+/ACXQT DCU*) 
DISABLE DATA SETS 
DO 30 I ■ 1,9 

IFd.EO.e) TNAME1(8)»TNAME 

IF(I.EQ.1.0R.I.EQ.2.0R.I.E0.3.0R.I.E0.9) TNAME2(I)»TNAME 
WRIT.E(20» 20) TNAME1(I)#TNAME2(I) 

20 FORMAT!* DISABLE 1,*AA,2X,AA) 

30 CONTINUE 

SET UP ELEMENT NAMES FOR CHANGE AND COPY STATEMENTS 

DDV«DV 

DDK-OK 

DDM-DM 

IF(ICNT.NE.A) GO TO 31 
DDVBA( J) 

GO TO 39 

31 IF(ICNT.NE.12) GO TO 32 
DDK-CK 


78 



r> o o o 


APPENDIX D 


BLDELDS (Cone. ) 


DOM-CM 
D0V-SAEL( J ) 

GO TO 39 

32 IF( ICNT.NE.21) GO TO 39 
DDK«SK 
DDM«SM 
DDV-BB( J) 

39 DO 80 UK - IfNODVEL 
WRITE(20#A0) C0P»0EM 

40 F0RMAT( A9# AlO#* 0+) 

WRITE (20> 50) CHA,DEM#DOM,DDV#DIAG» JCNTDV 
50 F0RMAT{ A9,A10,* 0, 2 A 2» A6# *0 *, 13 ) 

WRTTE(20,60) COP#KSP»NDF 
60 F0RMAT( A9# A7» 12#* O*) 

WRITE(20>70) CHA# KSP# NDF> DDK# DDV» S PAR/ NDF/ JCNTDV 
70 F0RMAT(A9/ A7» U/’*' 0»*/ 2A2, A6/ 12/ 14 ) 

JCNTDV - JCNTDV+1 
80 CONTINUE 
RETURN 
END 

SUBROUTINE REMOVE 

THIS SUBROUTINE REMOVES THE LEADING BLANKS FROM EACH 
LINE IN THE RUNSTPEAM. 

DIMENSION DATIN(80) 

DATA BLANK/IH / 

REWIND 23 

1 READ(23/2) ( D AT IN I I ) / I -I / 80 ) 

2 F0RMAT(80A1) 

IF(E0F(23)) 7/3 

3 IF(DATINd) .NE. BLANK) GO TO 50 
DO 6 I - 2/80 

IF(DATIN( I) .NE.BLANK) GO TO 60 

6 CONTINUE 

60 L»I-1 

K-80-I 

DO 4 J « 1/K 
DATIN(J) ■ DATIN(J+L) 

4 CONTINUE 
K-K + 1 

DO 5 J ■ K/80 
DATINU) ■ BLANK 

5 CONTINUE 

50 WRITEI21/2) ( D A T I N ( J ) / J - 1 / 80 ) 

GO TO 1 

7 REWIND 21 
RETURN 
END 
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PROGRAM GNGRDRS (INPUT# TA P E30# TAP E3 1# TA PEIO# T AP E5« I NPUT# OUTPUT) 
C 

C THIS PROGRAM CREATES A REPEATABLE SPAR RUNSTREAM 
C FDR CALCULATING DERIVATIVES WITH RESPECT TO 
C DESIGN VARIABLES. THE SIZE OF THE RUNSTREAM VARIES 
C WITH THE NUMBER OF LOAD CASES (NOLO AND THE 
C NUMBER OF DESIGN V AR I ABL E S ( NODV ) . 

C 

C THE RUNSTREAM IS OUTPUT ON UNIT 10 
C 

DIMENSION EL(999)#NSECT(<)99)#NUM(8)»MF0RM(5)#N0DVPE(999) 

DATA NUM/1H1»1H2# 1H3» 1H4# 1H5# 1H6# 1 H7# 1H8/ 

DATA BUCK# VIBP/AHBUCK# AHVIBR/ 

DATA E21#E22#E33#E^3/3HE21#3HE22#3HE33#3HEA3/ 

DATA MFORM(l) /10H(*Z11-UNI0/ 

DATA MF0RM(A)/10H(Il#lX#+2*/ 

DATA MF0RM(5)/9H)#I1#*)+)/ 

DATA MF0RM7/9HN(Z10#Z*#/ 

DATA MF0PM8/5HN(Z»'# / 

C 

READ INPUT 

NOEL « NUMBER OF DIFFERENT ELEMENTS 
NOLC • NUMBER OF LOAD CASES 
NODV * TOTALNUMBER OF DESIGN VARIABLES 
ISNOLC ■ STARTING NUMBER FOR DERIVATIVE LOAD CASES 
NDF - NUMBER OF DEGREES OF FREEDOM PER JOINT 
NORB ■ TYPE OF ANALYSIS (EX. BUCKLING) 

JOINTS » NUMBER OF JOINTS IN THE MODEL 
NODVPE - NUMBER OF DESIGN VARIABLES PER ELEMENT 
EL » NAMES OF ELEMENTS CONTAINING DESIGN VARIABLES 
(EX. F21) 

READ (5# 60) NOLC#NODV# ISNOLC# JOINTS # NDF# NOEL# VORB 

60 F0RMAT(6(1X# U)#1X# AA) 

READ (5# 61 ) (EL (I)#NSECT( I )#N0DVPE(I)#I-1#N0FL) 

61 F0RMAT(6(1X#A3#1X#I3#1X# 13)) 

ISNOLC-ISNOLC-1 
NDF«NDF«NDF 

determine if THERE IS A E21 # E22 # E33 # OR EA3 ELEMENT 

ICNTDV - 1 
DO 168 I ■ 1#N0FL 
JJ ■ NODVPE(I) 

DO 160 J « 1#JJ 
IF(EL(I).EQ.E21) GO TO 161 
IF(EL(I).E0.F22) GO TO 163 
IF(EL(I).EQ.EA3) GO TO 16A 

IF(EL(I).EQ.E33) GO TO 165 
GO TO 166 
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CALL SUBROUTINE TO FIND DK/DV AND DM/OV FOR E21 ELEMENTS 

161 CALL DKDVE2K ICNTDV^NDF) 

GO TO 166 

CALL SUBROUTINE TO FIND DK/DV AND DM/DV FOR E22 ELEMENTS 

163 CALL DKDVE22(ICNTDV»NDF) 

GO TO 166 

CALL SUBROUTINE TO FIND DK/DV AND DM/DV FOR E^3 ELEMENTS 

16A CALL DKDVEA3(ICNTDV#NDF) 

GO TO 166 

CALL SUBROUTINE TO FIND DK/DV FOR E33 ELEMENTS 

165 CALL DKDVE33(ICNTDV,NDF) 

166 ICNTDV « ICNTDV+1 
160 CONTINUE 

168 CONTINUE 

IF(VORB.EQ.VIBP) GO TO 320 
WRITE(10» 172) 

172 FORMATI+CXOT AUS^) 

C 

C FIND OBJECTIVE FUNCTIONS 


162 

WRITEdO* 

175) JOINTS 






175 

FORMAT(t 

SYSVECJUNIT VEC 

♦ /* 

I«1J 

J- 

1>*#I8#*J 1,0*/ 

1 

♦ DEFINE 

UN-UNIT VEC* 

) 






DO 200 I 

« 1>N0DV 







WRITFdO, 

IPO) Id 






180 

FORMAT(* 

DEFINE W*,I3, 

*« 

DMDV 

DIAG 

0 

*» 13) 

200 

CONTINUE 








DO 250 I 

- 1>N0DV 







WRITEdO# 

220) Id 






220 

FQRMAT(+ 

OBJF G*#I3>* 

1 

1-XTY(UN, 

W*# 

I3d)*) 

250 

CONTINUE 








WRITEdO# 

260) 






260 

FOPMAT(*[ 

XQT DCU*) 







DO 300 I 

« 1>N0DV 







WRITE(10» 

270) I 






270 

FORMAT!* 

PRINT 1 OBJF 

G* 

t 13) 




300 

CONTINUE 







CALL SUBROUT 

INE TO CREATE 

R 

UNSTREAM 

FOR 

DERIVATIVE 
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CALCULATION 


FIND APPLIED FORCES AND MOMENTS 
WRITE(10>2) 

2 FORMATI^CXOT AUS+/* OUTLIB-3*) 

DO A I » liNOLC 
WRITE(10#3) I, I 

3 FORMAT(* DEFINE F+,I2#+-STAT DISP 1*) 

A CONTINUE 

DO 6 I « 1,N0DV 
WRITE(10#5) I>N0FiI 

5 FORMAT(* DEFINE L*>I3>*«DKDV SPAR ♦>I2#I4) 

6 CONTINUE 

DO 101 « 1#N0LC 
NWNOLC-I+ISNOLC 
WRITEdO#?) NWNOLC 

7 FQRMAT(* ALPHA} CASE TITLE 
DO 9 J ■ 1,N0DV 
WRITE(10#8) J>I>J 

8 F0RMAT(1X>I3#* “LnAD CASE *fI2p* DERIVATIVE 1 DESIGN VARIABLE 
1 13) 

9 CONTINUE 
10 CONTINUE 

IF(NODV.NE.l) WRITE(10#2003) 

2003 FORMAT(* OUTLIB-AA) 

IF(NODV.EO.l) WRITE(10,6006) 

6006 FORMAT(* OUTLIB-3 ♦) 

DO 1010 I ■ 1»N0LC 
NWNOLC-I+ISNOLC 
DO 1005 J - 1,N0DV 
WRITEdO# 1003) NWNOLC#J>J#I 

1003 FORMAT!* APPL FORC *#I3/I3^*» PR0DUCT(-1.0 L*/I3#+»1.0 F*>12>*)*) 
1005 CONTINUE 
1010 CONTINUE 

DO 15 I » 1#N0LC 
NWNOLC-I+ISNOLC 
IF(N0DV.EQ,1) GO TO 50 
IFd.EO.l) WRITE(10,2009) 

2009 FORMAT!* INLIB-A*/* OUTLIB-3*) 

DO 13 J ■ 1#N0DV>9 
ITOP-9 

ICHK«N0DV~J+1 
IF! ICHK.LT.9) ITOP-ICHK 
DO AO K « 1#IT0P 
L-K+J-1 

WRITE!10#12) K#NWNOLC,L 

12 FORMAT!* DEFINE Z*»Ilf*«APPL FORC *>I3>1X>I3) 
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^0 CONTINUE 

IF(ITOP.EQ.l) GO TO 41 
MF0RM(2)»MF0PM7 
IF(J.EQ.l) MF0RM(2)-NF0RM8 
HF0RM(3)-NUM(IT0P-1) 

WRITE(10>MF0RM) (K,K«1,IT0P) 

41 IFdTOP.EQ.l) WRTTE(10#4?) 

42 F0RMAT(*Z11»UNI0N(Z10 Zl)*) 

WRITE(10»45) 

45 FORMAT!* INL I B -3* /*Z1 2 «UN ION ( Z 11 ) ♦ /♦ DEFINE Z10-Z12*/ 
1 ♦ INLIB-4*) 

13 CONTINUE 

WRITE(10#46) NWNOLC 

46 FORMAT!* APPL FORC 1-UN I ON ! ZIO ) * ) 

15 CONTINUE 


FIND STRESS AND DISPLACEMENT DERIVATIVES 


50 

DO 32 I • 1,N0LC 
WRITE!10#16) NODV 



16 

FORMAT!*CXQT SSOL*/* RESET L l-l# L 2 ■*# 1 3 ) 

NWNOLC-I+ISNOLC 

WRITE!10>17) NWNOLC 



17 

FORMAT!* RESET QLIB-3*/* RESET SET»*#I3) 
WRITF!10» 18) 



18 

FORMAT!*CXQT VPRT*/* LIB«3*) 
WRITE!10#19) NWNOLC 



19 

FORMAT!* PRINT APPL FORC *>I3) 
WRITF!10#20) NWNOLC 



20 

FORMAT!* PRINT STAT DISP *#I3) 
IFIVORB.EO.BUCK) GO TO 400 
WRITE!10>21) NODV 



21 

FORMAT!*CXQT 6SF*/* RESET L 1»1> L 2- *> 1 3 /* 
WRITE!10#22) NWNOLC 

RESET 

QLIB-3*) 

22 

FORMAT!* RESET SET-*#I3) 
WRITE!10»23) NODV 



23 

FORMAT!*tXOT PSF*/* RESET Ll-1# L2- *> 13 / * 
WRITE!10#24) NWNOLC 

RESET 

QLIB-3*) 

24 

FORMAT!* RESET SET-*, 13) 
GO TO 25 




SET UP RUNSTREAM FOR BUCKLING ANALYSIS 

400 IDV • 0 

DO 470 J ■ IfNOEL 
NOOVEL ■ NODVPE!J) 

DO 460 K » 1,N0DVEL 
IDV - IDV+1 
WRITE!10>425) 
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425 

FOPMAT(*CXQT GSF*/+ RESET EMBED»1*) 
WRITE(10,430) IDV, IDV, NWNOLC 


430 

FORMAT(* RESET Ll»*, 13,*, L2»*, 13,*, SET- 
WR I T F ( 1 0, 43 5 ) 

*,I3,*,QLIB«3*) 

435 

FORMAT(*CXQT PSF*) 
WRITE(10,430) IDV, IDV, NWNOLC 
WRITE(10,440) 


440 

FORMAT(*[XOT KG*) 
WRITE(10,445) 


445 

FORMAT(*CXQT DCU*) 
WRITE(10,450) NDF,NDF,IDV 


450 

FORMAT(* CHANGE 1,KG SPAR *,I3,* 0,DKG 
WRITF(10,455) NDF,IDV 

SPAR *, 13,14) 

455 

FORMAT(* COPY 1,3 DKG SPAR *,I3,I4) 


460 

CONTINUE 


470 

CONTINUE 


25 

WPITE(10,251) 


251 

FOPMAT(*CXQT DCU*) 
WRITE(10,26) NWNOLC, NWNOLC 


26 

FORMAK* CHANGE 3,STAT DISP *,I3,* 1,DDIS DISP *,I3,* 1*) 


CHANGE DATA SET NAMES 


IDV»0 

DO 31 J«1#N0EL 
NOSECT - NSECT(J) 

NODVEL » NODVPE(J) 

DO 30 K-1>N0DVEL 
DO 271 LL « 1>N0SECT 
IDV-IDV+1 
DO 27 KK « 1>NCEL 
IF(EUKK) .E0.E21) GO TO 29 
IF<EL(KK)«EQ.E22) 60 TO 29 
IF(EL(KK) .E0.EA3) GO TO 29 
IF(EL(KK) .E0.E33) GO TO 29 

WR IT.EdO# 28) EL(KK),NWNOLC#IDV#EL(KK)#NWNOLC# IDV 
20 FORMAT(* CHANGE 3,STRS A3# 2 14, DSTR ♦,A3,2I4) 
WRITE(10,285) EL ( KK ) , NWNOLC, ID V 
285 FORMAT(* COPY 3,4 DSTR *,A3,2I4) 

GO TO 27 

STORE BEAM CROSS DERIVATIVES 

29 WRITE(10,290) EL ( KK ) , NWNOLC, ID V, EL ( KK ) , NWNOLC, ID V 

290 FORMAT(* CHANGE 3,STRS ♦, A3,2I4, 4, DFAM ♦,A3,2I4) 
WRITE(10,292) EL ( KK ), NWNOLC , IDV 
292 FOPMAK* COPY 3,4 DFAM *,A3,2I4) 

27 CONTINUE 
271 CONTINUE 
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30 CONTINUE 

31 CONTINUE 

32 CONTINUE 

320 IF(VORB.EQ.VIBR) WR I TE ( 1 0# 260 ) 



DO 333 I 

■ 1# 

NOOV 




WRITE! 10, 

332) 

I 



332 

FORMAT!* 

COPY 

1,A 

OBJF 

G*,I3) 

333 

CONTINUE 






WRITE!10, 

>33) 




33 

FORMAT!* 

TOC 

3*/* 

TOC 

1*/* TOC A*/*CXQT EXIT*) 


STOP 

END 


85 



appendix d 


SUBROUTINE DKDVE2 1 


SUBROUTINE DKD VE2 1 ( NDV J I M# NDF ) 

DIMENSION X(20) 

NAMELIST/LINKF/NDV, X 
C 

C THIS SUBROUTINE CREATES A SPAR RUNSTREAM TO CALCULATE 
C 


c 

OK 

DK 

DA 

DK 

DI DK 

DI DK 

DJ 

c 





X 

Y 

0 

c 

— 

m — — 

t — — — 

f 

, + 

, 4- 

• •••••• 

c 

DV 

DA 

DV 

01 

DV DI 

DV DJ 

DV 


C I I X I Y I 0 I 

C 
C 
C 


c 

DM 

DM 

DA DM 

DI 

DM 

DI DM 

DJ 

C 

C 

^ „ 

m — — 

+ 

X 

. + . 

Y 

0 

• — 

C 

DV 

DA 

DV DI 

DV 

DI 

DV DJ 

DV 

c 

I 


I X 

I 

Y 

I 0 

I 


c 

WRITE(lO^l) 

1 FORMAT(*CXOT AUS*) 

WRITE(10>3)NDF,NDVJIM#NDF#NDVJIM 
3 FORMATCt DEFINE Al-DKDA SPAR ♦»I2>IA/+ DEFINE A2-DKIX+ 
1 * SPAR ♦#I2#IA) 

WRITEdO, A)NDF#NDVJIM, NDF#NOVJIM 
A FORMAT(* DEFINE A3-0KIY SPAR *, 12 , 1 ^^/* DEFINE AA-OKJO + 
1 ♦ SPAR *#I2»IA) 

WRITEdO, 203)NDVJIM#NDVJIM 

203 FORMAT(* DEFINE Bl-DMDA OIAG 0 ♦>I3/+ DEFINE B2«DMIX+ 

1 ♦ DIA6 0 *>I3) 

WRITE(10> 20A)NDVJIM#NDVJ IM 

20A FORMAT^*' DEFINE B3-DMIY DIAG 0 ♦>I3/* DEFINE EA-DMJO* 

1 ♦ DIAG 0 ♦,I3) 

C 

C COMPUTE' DA/DV 
C 

DADV-1, 

C 

C READ IN AND SET UP INITIALIZATION VALUES 
C 

C READ IN CONSTANTS FROM UNIT 30 
C 

READ(30#5) B10#B20>T0 
5 FDRMAT(3F10.3) 

C 

C READ IN DESIGN VARIABLES FROM UNIT 31 
C 

PEAD(31#LINKF) 
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AREA0»(2.*B10+B20)*T0 

AREA»AREA0/X(2) 

SCALE*SQRT( AREA/AREAO) 

B1«B10*SCALE 
B2-B20+SC ALE 
T-TO+SCALE 

FTR-0.5/SQRT(AREA*AREA0) 

C»(B2+2.*T)*Bl**2/2.-B2*(Bl-T)«(Bl+T)/2, 

C«C/AREA 

C 

C COr^PUTE FACTORS FOR DIl/OV # DI2/DV f DJO/DV 
C 

DB1DV»B10^FTR 

DB20V»B20*FTR 

DTDV«TO*FTR 

0IlDBl-(B2+2.*T)**3/12.-B2+*3/12. 

DI1DB2« (B2+2.+T)**2^Bl/A.“B2**2*(Bl-T) /A. 
DIlDT»(B2 + 2.*T)*’«‘2 + Bl/2.+B2»*3/12. 
DCDB1»(B1*(B2+2.*T)-B2+B1-2.*C*T)/AREA 
DCDB2»(Blt=«'2/2.-(Bl-T)=)‘(Bl+T)/2.-C*T)/AREA 
DCDT« (Bl + >*'2 + B2 + T-C’*'(2.*81+B2) ) / ARE A 
DI2DBl-(T+Bl**2/2.)+(2.*T+(Bl/2,-C)+*2)+ 

1 (A.X‘T*Bl*(Bl/2.-C)*(.5-DCDBl) ) + 

2 (2.*B2*T>S'(C-T/2, )*DCDB1) 

DI2DB2»(-A,>*<T + Bl*(Bl/2.-C)*DCDB2) + {T*t3/12.) + 

1 (T*(C-T/2. )’«‘*2) + (2.*B2*T=«'(C-T/2. )*DCDB2) 

DI2DT- (Bl>t'=!'3/6. ) + (2.♦Bl♦(Bl/2.-C)♦♦2)- 

1 (4.*T*Bl*(Bl/2.-C )*DCOT)+(B2*T**2/A. )♦ 

2 (B2^(C-T/2. )t+2)+(2.+B2*Tt(C-T/2 .)*{DCDT-.5) ) 
DJODBl»2.*T**3/3. 

DJ0DB2-T**3/3, 

OJOOT- (2.*Bl+B2)+T*+2 

COMPUTE OIl/DV t DI2/DV , DJO/DV 

DI1DV-DI1DB1*DB1DV+DI1DB2*DB2DV+DI1DT*DTDV 
DI2DV«DI2DBl*DBlDV+DI2DB2*DB2DV+DI2DTtDTDV 
DJ0DV«DJ0DB1*DB1DV + DJ0DB2’»'DB2DV + DJ0DT*DTDV 

CREATE RUNSTREAM TO FIND DK/DV 

WRITE( 10# 106)DADV#DI1DV 
WRITEdO# 107)DI2DV#DJ0DV 

106 F0RMAT{8X#*Sl*SUM(*,ei3.5#lX#*Al#tF13.5#lX#*A2)+V 

107 F0RMAT(8X#*S2-SUM(*,E13.5#1X#*A3#*E13.5#1X#+AA)*) 
WRITEdO# 108) NDF,NDVJIM 

108 FORMAT!* DKDV SPAR *# 1 2# I A# *«SUM ( S 1# S2 ) * ) 

C 

C CREATE RUNSTREAM TO FIND DM/DV 
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WPITEdO# 206)DADV#DI1DV 
VRITE(10#207)DI2DV» DJODV 

206 F0PMAT(8X,*T1-SUM(*,E13.5>1X>^B1>*E13.5>1X,+B2)*) 

207 FnPMAT(8X>«T2«SUM(*#E13.5#lX>*B3>=«=E13.5#lX>*BA)«) 
WRITE(10»208) NOVJIM 

208 FDRNAT(» DMOV DIAG 0 + > 1 3# ♦•SUM ( Tl, T2 ) ♦ ) 
WRITE(10»209) 

209 FGRMAT(+CXOT DCU%/^ TOC !♦) 

RETURN 

END 
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PROGRAM DRVSTRS (INPUT»65»T A PE30» TAPE 31»TAPF 5- INPUT 
1 » TAPE 15> TAPE 16> OUT PUT«6 5»TAPE6«0UTPUT) 

THIS PROGRAM COMPUTES THE STRESSES AND STRESS DERIVATIVES 
FOR SPAR BEAM ELEMENTS USING SPAR LIBRARIES AS INPUT. 

THE STRESSES ARE COMPUTED FROM SPARLA USING DATA SET 
FAMS MASK I 1 WHERE I ■ 1 TO NOLC 

The stresses are written back onto SPARLA using data SET 

STRS MASK I 1 WHERE I ■ 1 TO NOLC 

THE STRESS DERIVATIVES ARE COMPUTED FROM SPARLC USING DATA SET 

DFAM MASK I J WHERE I • ISTRTLC TO ISTRTLC+NOLC AND J • 1 TO NODV 
THE STRESS DERIVATIVES ARE WRITTEN BACK ONTO SPARLC USING DATA SET 

DSTR MASK I J WHERE I • ISTRTLC TO ISTRTLC+NOLC AND J • 1 TO NODV 

COMMON KORE»KEVEN#Z (1) 

DIMENSION NAME1(2),NAME2 (?)»EL (999),N0DVPE (999) 

DATA E21»E22#E33»E^3/3HE21>3HE22»3HE33#3HEA3/ 

DATA NAME1/AHFAMS> AHDFAM/ 

DATA NAME2/AHSTRS# AHDSTR/ 

READ INPUT VALUES 

NOEL IS THE NUMBER OF DIFFERENT ELEMENTS 
NDF IS THE DEGREES OF FREEDOM PER JOINT 
VORB IS THE TYPE OF ANALYSIS (EX. BUCKLING) 

JOINTS IS THE NUMBER OF JOINTS IN THE MODEL 
NOLC IS THE NUMBER OF LOAD CASES 
NODV IS THE NUMBER OF DESIGN VRIABLES 

ISTRTLC IS THE STARTING NUMBER FOR THE DERIVATIVE LOAD CASES 
EL -NAMES OF ELEMENTS USED AS DESIGN VARIABLES 
(EX. E21) 

READ(5»1) NOLC # NODV» I SNOLC# JOINTS# NDF, NOEL# VORB 

1 F0RMAT(6( IX# IA)#1X# AA ) 

READ (5# 2) (EL (I )#NSECT#NODVPE(I)#I»l#NOEL) 

2 F0RMAT(6(1X#A3#1X#I3#1X#I3)) 

ISTRTLC-ISNOLC-1 

CALL RSET(IL#0#0) 

LOOP ON THE NUMBER OF LOAD CASES 
DO A NCNTLC ■ l#NOLC 
LOOP ON NUMBER OF ELEMENTS 
DO 10 ISTRS - 1#N0EL 
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DRVSTRS (Cont.) 


C CHECK FOR E21, E22> E33» E^3 ELEMENT 
C 

IF(EL(ISTRS).E0.E21.DR.EL(ISTRS).E0.E^3.0R. 

1 EL(ISTRS).EQ.F22.0R.EL{ISTRS).E0.F33) GO TO 9 
GO TO 10 

9 NODVEL • N00VPE{ ISTRS) 

SET NUMBER OF STRESS OR STRESS DERIVATIVES TO BE WRITTEN 

IF(EL(ISTRS).EQ.E21.0R.EL(ISTRS) .E0.E22) IWRDCNT • 8 
IF(EL(ISTRS).EQ.EA3.0R.EL(ISTPS).E0.E33) IWRDCNT • 4 

LOOP ON NUMBER OF DESIGN VARIABLES PER ELEMENT 

00 90 JK ■ 1, NODVEL 
REWIND 15 
REWIND 16 

READ FAMS MASK FROM SPARLA AND COMPUTE STRS MASK 

CALL RDATSET(4#NAMEl(l)#NCNTLC»l>NEl»l#0#EL(ISTRSn 
REWIND 15 
REWIND 16 

CALL SUBROUTINE TO WRITE STRESSES ON SPAR LIBRARY 


WRITE STRS MASK ON SPARLA 

CALL WRTDATA(4#NAME2{1)#NCNTLC#1,NE1#EL( ISTRS )> IWRDCNT) 
90 CONTINUE 
10 CONTINUE 
ICNTDV » 1 

LOOP ON NUMBER OF ELEMENTS 
DO 3 ISTRS-l»NOEL 

IF(EL(ISTRS),E0.E21.0R.EL(ISTRS),EQ.E43.0R. 

1 EL(ISTRS).EO.E22.0R.EL(ISTRS).E0.E33) GO TO 19 
GO TO, 3 

19 DO 30 ICNTDV ■ 1»N00V 
IBEAM ■ 0 

NODVEL • N0DVPE( ICNTDV) 

SET SWITCH FOR BEAM ELEMENT 

IF(EL( ICNTDV) .EO.E2 1.0 R.EL( ICNTDV) .EO.E 22) I BEAM-1 
N3-NCNTLC+ISTRTLC 
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DRVSTRS (Cont. ) 


C SET NUMBER OF STRESSES AND STRESS DERIVATIVES TO BE WRITTEN 
C 

IF(EL(ICNTDV).E0.E21) IWRDCNT - 8 
IF(EL(ICNTDV).EQ.E^3) IWRDCNT • A 

LOOP ON NUMBER OF DESIGN VARIABLES PER ELEMENT 

DO 20 JK • 1»N0DVEL 

READ DFAM MASK FROM SPAPLC AND COMPUTE DSTR MASK 
REWIND 15 

CALL RDATSET(<*»NAME1(2)»N3»ICNTDV»NE1»0#IBEAM»EL{ISTRS)) 
REWIND 15 

WRITE DSTR MASK ON SPARLC 

CALL WRTDATA(^»NAME2(2)»N3» ICNTDV» NE1» EL ( I STR S ) / I WRDCNT ) 
20 CONTINUE 
30 CONTINUE 
3 CONTINUE 
A CONTINUE 

CALL FIN(0#0) 

STOP 
END 

SUBROUTINE WRT DAT A ( NU# N1 , N3> IS TRS» NE X 2» I WR DCNT ) 

SUBROUTINE TO WRITE STRESS AND STRESS DERIVATIVE 
DATA SETS BACK INTO SPAR LIBRARIES 

COMMON K0RE»KEVEN>Z(1) 

SET UP BLOCK SIZES 

IF NWD3 GT OPEN CORE SIZE > USE MOPE THAN ONE BLOCK 

NWD3-NE1+IWRDCNT 
LB3-NWD3 

IF(NWD3.LT.K0RE) GO TO 61 
LB3-NWD3/2 

61 ISW-0 

IF (NWD3.lt. KORE ) ISW-1 

CALL DAL(NU»0,Z (1 )»KORE» liKADP3» IERR»NWD3>NE1# LB3>-1> 

1 N1»X2»N3#ISTRS) 

62 H«1 

63 I2-I1+IWRDCNT-1 

IF(I2.GT.LB3) GO TO 66 

READ STRESSES OR STRESS DERIVATIVES OFF UNIT 15 
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DRVSTRS (Cone. ) 


READ(15) (Z(I)>I«I1>I2) 

IF(E0F(15)) 66#65 

65 Il-Il+IWRDCNT 
GO TO 63 

WRITE STRESSES OP STRESS DERIVATIVES ONTO SPAR LIBRARY 

66 CALL RI0(NU,10/2>KADR3»Z(1)»LB3) 

IFdSW.EQ.l) GO TO 67 
lSW-1 

L83-NWD3-LB3 
GO TO 62 

67 RETURN 
END 

SUBROUTINE RD ATS E T ( NU> N1 # N3, I STR S> NE 1# I S W> I BE AN, X2 ) 

SUBROUTINE TO READ SPAR L I BR AR Y, S TOR E DATA, AND 
CONPUTE STRESSES OR STRESS DERIVATIVES 

COMMON KORE,KEVEN,Z(l) 

DATA E21,E22,E33,E43/3HE21,3HE22,3HE33,3HE43/ 

SET UP BLOCK SIZE 

CALL DAL(NU,10,Z(1),K0RE,1,KADR1,IERR,NWD1,NE1,LB1,ITYPE,N1, 
1 X2,N3,ISTRS) 

NIl-LBl/NEl 
KCNT-0 

NBLKl-NWDl/LBl 

1F(NBLK1*LB1.NE.NWD1) NBLKl-NBLKl+1 
DO 6 J ■ 1,NBLK1 
NLBl-LBl 

IFIJ.EO.NBLKl) NLB1«NWD1-(NBLK1-1)*LB1 

READ DATA FROM SPAR LIBRARY 

CALL RI0(NU,20,2,KADR1,Z(1),NLB1) 

DO 30 JCNT-1,NLB1,NI1 
KCNT-KCNT+1 
C 

C CALL SUBROUTINE TO COMPUTE STRESSES AND STRESS DERIVATIVES 
C 

IF(X2.EQ.E21.0P.X2.E0.E22) CALL BMSTR S ( I S W, KCNT, JCNT, I B E AM ) 
IF(X2.E0.E43.0P.X2.E0.E33) CALL PL TS TR S ( I S W, KC NT , JC NT ) 

30 CONTINUE 
6 CONTINUE 
RETURN 
END 
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SUBROUTINE BMSTRS 


SUBROUTINE BMS TR S ( I SW, KC NT# JCNT> I B E AM ) 

COMMON K0PE#KEVEN#Z(1) 

DIMENSION DY10V{A)#0Y2DV(A)#Y(A#2)#S(8)#F3{2)#XM1(2)#XM2(2) 
DIMENSION X(20) 

NAMELIST/LINKF/NDV#X 
JMl » JCNT-1 
C 

C STORE FORCES AND MOMENTS IF ISTRS EQ 1 

C STORE DERIVATIVES OF FORCES AND MOMENTS IF ISTRS EQ 2 

C 

F3(l)«-Z( JMl+13) 

XMKD— Z (JMl + lA) 

XM2(1)«-Z( JMl+15) 

F3(2)-Z<JM1+19) 

XM1(2)-Z( JMl+20) 

XM2(2)-Z( JMl+21) 

IF<KCNT.NE.l) GO TO 31 
IF(ISW.NE.l) GO TO 31 

STORE AREA# MOMENTS OF INERTIA# AND Y VALUES IF 
FIRST TIME THROUGH 

XI1»Z( JMl+25) 

XI2-Z( JMl+27) 

ICNT-38 
DO 3 K - 1#A 
DO 2 L » 1#2 
ICNT-ICNT+1 
Y(K#U-Z( JMl + ICNT) 

2 CONTINUE 

3 CONTINUE 

FIND DERIVATIVE OF Y VALUES IF NEEDED 


READ IN CONSTANT NUMBERS FROM UNIT 30 


READ(30#10) B10#B20#T0 
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SUBROUTINE BMSTRS (Cont.) 


10 F0RMAT(3F10.3) 

READ IN DESIGN VARIABLES FROM UNIT 31 

READ(31#LINKF) 

CALCULATE DY/OV 

A0»(2.+B10+B20)*TO 

A-A0/X{2) 

SCALE-SQRT{ A/AO) 

Bl-BlO+SCALE 
B2»B20*SCALE 
T-TO+SCALE 
FTR»0.5/SQRT( A^AO) 

C»(B2 + 2.=<‘T)*Bl>!‘*2/2.-B2*(Bl~T)*(Bl+T)/2. 

C-C/A 

DB1DV«B10*FTP 

DB2DV«B20*FTR 

DTDV«TO*FTR 

DCDB1«(B1^(B2+2.*T)-B2+B1-2.*C*T)/A 

DCDB2-(Bl**2/2 .-{Bl-T)*(Bl-^T)/2.-C*T)/A 

DCDT-(Bl*’*‘2 + B2*T-C’*'(2.tBl+B2))/A 

DCDV»(DCDBl*DBlDV)+(DCDB2*DB2DV>+( DCDT+OTDV) 

DY1DV(1)--DB1DV+DCDV 

DY1DV(2)-DCDV 

DY1DV(3)«DCDV 

DY1DV(A)»DY1DV(1 ) 

DY2DV(l)-( .5«DB2DV)+DTDV 
DY2DV(2)«DY2DV(1) 

DY2DV(3)»~DY2DV(1) 

0Y2DV(A)«DY2DV(3) 

31 ICNT-0 

DO 200 II - 1,2 
DO 100 I ■ 1,A 
ICNT»ICNT+1 

CONFUTE STRESSES OP STRESS DERIVATIVES 

S <ICNT)«(F3( II )/A)+((XMl( II) /XII )*Y( 1,2) )»nXM2( II) /XI2) 
1 ♦Yd,!)) 

IF AREA OF BEAN IS A CONTRIBUTING FACTOR TO STRESS 
DERIVATIVES AND ISTRS EQ 1 THEN CALCULATE THE FACTOR 
AND STORE ON UNIT 16 

IF(ISW.NE.l) GO TO 95 

DFAC«( (XNl ( II ) /XI1)«DY2DV(I) )-( (XM2( II) /XI2) ♦DYlDVd) ) 
WRITE(16) DFAC 
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SUBROUTINE BMSTRS (Cone. ) 


GO TO 100 

IF AREA OF BEAM IS A CONTRIBUTING FACTOR TO STRESS 
DERIVATIVES AND ISTRS EQ 2 THEN READ FACTOR OFF UNIT 16 
AND ADD IT TO STRESS DERIVATIVE 

95 IF( IBEAM.EQ.O) GO TO 100 
READ(16) DFAC 
S<ICNT)»S(ICNT)+DFAC 
100 CONTINUE 
200 CONTINUE 

WRITE STRESSES ON UNIT 15 

WRITE(15) S 

RETURN 

END 
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DATA FILES 

The following are sample listings of data files. 


INPUT DATA FILES 
PCONPAR,CONPAR 


SCONPAR 

IPRINT-5, 

NDV-3f 

ITMAX-20# 

NCON-190# 

NFDG-0# 

NSIDE-1* 

ICNDIR-O# 

NSCAL-A# 

LINOBJ-0# 

ITRM-0# 

FDCH«0.» 

FDCHM-O.# 

CT-0., 

CTMIN-0.025, 

CTL-0.# 

CTLMIN«0.> 

THETA-0.125# 

PHI-5.# 

DELFUN-0.05# 
DABFUN-0. 0000000001# 
ISC<1)-190>«‘0.0# 
Nl-20# 

N2-A0C# 

N3-200# 

NA-200# 

N5-<tOO# 

ALPHAX-0.0# 

ABOBJl-0.0# 

IGOTO-O# 

VLB(1 )-0.005# 

VLB{2)-0.1# 

VLB(3)-1.0# 

VUB(1)-1.0# 

VUB(2)-10.0# 

VUB(3)-10.0# 

$END 


(See ref. 6 for a description of the parameters.) 
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PSTART,STARTX 


SSTARTX 

X(l)»0,05» 

X(2)"l«0# Starting values for three design variables. 

X(3)-^.0, 

SEND 


INPT 


1 3 100 80 

E23 1 1 E21 1 


5 3 STAT 

1 E41 1 1 


Card type 1 Number of load cases = 1, Number of design variables = 
Starting number for load cases = 100, Number of joints 
Number of nonzero degrees of freedom =5, 

Number of different element types = 3, 

Type of analysis = STAT 

Card type 2 Element names E23, E21, E41 

Last section number for each element 1,1,1 
Number of design variables per element 1,1,1 
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CNT 


$CNT 

OBJl » 10. 0> 

0BJ2 « 50. 0# 

0BJ3 ■ 10. 0> 

TOL « .5E-01, 

SEND 


Initial objective functions and tolerance 


ENDN 


SEPIN 

E23AL«2000.> 

E21AL-2000., 

EAlAL-2000.> 

NSE23-58# 

NSE21-76# 

NSEAl-56, 

SEND 


E23AL, E21AL, E41AL are limits 
on the design variables 
NSE23, NSE21, NSE4 1 are the 
number of each type of element 


CONS 


12. 30. 2. 


Input values to calculate the derivative 
of the stiffness and mass matrices with 
respect to the design variable 


B1 = 12 
b2 = 30 
T1 = 2 


Cross-sectional dimensions of a beam 
(See ref. 2 for more detail.) 
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MODEL DATA FILES 


NRRS (nonrepeatable SPAR runstream) 


CXQT TAB 

START 80> 5$ ROTATIONS ABOUT Y EXCLUDED 

TITLE” FUSELAGE M0DEL#FSPAR1 

TEXT 

" MEMBRANE-ROD-BEAM FUSELAGE MODEL 
"NONREPEATABLE PART 

JLOCS FUSELAGE DIA. 800. C M , > L E NGTH- 800. CM. 
F0RMAT»2$CYLINDRICAL COORDINATES 

1 400. 0. 0. 400. 337.5 0. 16 1 5 
16 400. 0. 800. 400. 337.5 800. 

MREF 

FORMAT-2 

1 -2 0 . 0 . 10000000 . 

2 1 0 . 0 . 10000000 . 

MATC 

1 .72+6 0.3 .0028 22.-6$ AL-AL L OY# ME TR IC UNITS 

E23 SECTION PROPERTIES $ROD ELEMENTS 

1 4.168$AREA OF THE RODS 

E21 SECTION PROPERTIESSBEAM ELEMENTS 

DSY 1 16804. 0. 1262.7 0. 108. 144. 0. 6.0784 0. 0. 

0. 0. 0. -8,7778 17. 3.2222 17. 3.2222 -17. -8.7778 

SHELL SECTION PROPERTIES 

1 O.ISSKIN THICKNESS 

CONSTRAINT CASE 1 

ZERO l#2f3|l,16$ CANTILEVER THE FUSELAGE 
ZERO 1>2»3#4^6J36#38 



Input to TAB 
processor to 
tabulate 
material 
properties , 
structural 
geometry , 
constraint 
conditions , 
etc. 
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Input to ELD 
processor to 
establish 
element 
connectivity . 
(See ref. 5 
for more 
detail. ) 
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NGRS (repeatable SPAR runstream) 


CXOT TAB 

TITLE"FUSELAGE MODEL 
TEXT 

"MEMBRANE ROD BEAM FUSELAGE MODEL 
"REPEATABLE PART WITHOUT GRADIENTS 
UPDATE»l 




Update for new design variables 


$ MERGE NEW 

PROPERTIES HERE. 

UPDATE-0 

J 

CXQT TOPO -N 


CXOT E 

Generation of element matrices. 

CXQT EKS 

. assembling stiffness and mass 

CXQT K 

' matrices, decomposing the 

CXQT INV 

stiffness matrix 

CXQT M 


RESET G-981. 


tXOT AUS 

SYSVEC JAPPLIED FORCES 1 
I»1J J»65;69|77j 10000. 
SYSVECJUNIT VEC 
I-ll J»1»80J 1.0 
DEFINE WT-DEM DIAG 0 0 
DEFINE UN-UNIT VEC 
OBJFUN»XTY(UN#WT) 

CXOT DCU 
PRINT 1 OBJFUN 
[XQT SSOL 
[XQT 6SF 
CXQT PSF 
tXOT VPRT 

PRINT APPL FORC 1 1 
PRINT STAT DISP 1 1 
rXQT DCU 




- 20000 . 20000 


.} 


Applied loading definition 


^ Static deflection and stress computations 




PRINT 1 

STAT 

DISP 

1 

1 

PRINT 1 

STRS 

E21 

1 

1 

PRINT 1 

STRS 

E23 

1 

1 

PRINT 1 
TOC 1 

STRS 

E41 

1 

1 

COPY 1»4 

OBJF 

AUS 

1 

1 

COPY 1,4 

STRS 

E21 

1 

1 

COPY 1,4 

STRS 

E23 

1 

1 

COPY 1,4 

STRS 

E41 

1 

1 


Print results 


1 


Copy data needed for end processor 
to library 4 (SPARLD) 


TOC 4 
tXQT EXIT 


(See ref. 5 for more details.) 
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TRANSFER DATA FILES 
PCONRST 


ISRLK 

OGBJ 

• 

.668443210210066+04# 





008JI 

■ 

.668443210210066+04# 





OX 

■ 

.721643103226136-01, .65918256393146*00, .617466189181536+01, 
0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 

0.0# 0.0, 0.0, 

0.0, O.Oi 

> 0.0, 0.0, 

0X1 

• 

.721643103226136-01, .65918256393146*00, .617466189181536*01# 
0.0# 0.0# 0.0* 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 

o 

o 

o 

o 

o 

o 

0.0# O.Oi 

o 

o 

o 

o 

06 

■ 

-.995716531820676+00, -. 952 70 66879 5628 E +00, -.929774176014226 

♦ 00, 

-.964730350963256+00, -. 

,039315309231776+00, 


«.88108655172185E+00» - . 95601 75 52 36 89E + 00# -.94280239683172£*00» -.99946668264813E*00> -.96<»3<f060366^49E+00# 

-.7^7«82165A2^316+00# -.90032053868088E + 00# -.97225336835133E+00» -.99<V27773862803E*00» -.925727B8669819E+00# 

-.9928393^9656846*00» -« 99897 13^99^7536 +00# 99261 5909063«46*00» 6 32 U 4 85071 733F +00» 756 5390601 733 7g *00# 

-.098337683325246*OO> -.922054O8OO96276+OO# -.788284740696866*00> - . 82 U I 8 39595694 E + 00» -.964 74726678 33 56 + 00# 

-.936700728555666+00# -.793816742533586+00# -.88004054689236+00# -.947610044660386+00# -.9967U10630028E+00# 

-.994254536348636+00# -.994642217274856+00# -.974115241691756+00# -.974579168130986+00# -.650514578203396+00# 

-.914524724232836+00# -.961528909340786+00# -.996897072218756+00# -.853426438869516+00# -.911996576622246+00# 

-.95191949487286+00# -.997966803021946+00# -.911803272773826+00# -.942800954772396+00# -.972481297060046+00# 

-.99228753072936+00# -.978810771388696+00# -.9983017O122538E+OO# -.996115790766356+00# -.985437472403426+00# 

-.040461265036356*00# -.920158087101816+00# -.900601562689716*00# -.99741377752226+00# -.835425666002556+00# 

-.881865942962286+00# -.958382612952286+00# -.999401338146446+00# -.16+01# -.16+01# -.16*01# -.16+01# 

-.16+01# -.16+01# -.16+01# -.16+01# -.16*01# -.16*01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# 

-.16+01# -.739689746656496+00# -.719897990933436+00# -.85116662976076+00# -.909466233698696+00# 

-.925793165114456*00# -.621387914159296*00# -.651061791551736+00# -.669529131851996*00# -.868389980010386+00# 

-.920793240837116+00# -.907753055207546+00# -.895959245912476+00# -.911857858085186+00# -.904039113070416+00# 

-.866737849846526+00# -.894756043504966*00# -.454137636385256+00# -.132587220130386+00# -.112657221253076+00# 

-.245744181099446+00# -.372526807007966+00# -.12777570831916*00# -.140692670806986+00# -.671314211730646+00# 

-.665073041838876+00# -.785994912802696+00# -.799626190341016+00# -.786485402907696+00# -.848438947943986+00# 

-.90126251271686+00# -.685638373924926+00# -.446301983631836+00# .516406345596476-04# -.328926008347796+00# 

-.249432608556856+00# -.239380865292066+00# -.385447580318676+00# -.393761474008446+00# -.461570252696976+00# 

-.603282059805496+00# -.725506349754516+00# -.714996872530236+00# -.694154765056746+00# -.726400008041936+00# 

-.819688627211736+00# -.858203155640346+00# -.799796238896936+00# -.151563460823926-02# -.801006346229766+00# 

-.030172232547586+00# -.746852392647976+00# -.782380302343346+00# -.876464444042996+00# -.870211023929716+00# 

-.855362277959876+00# -.841346089033996+00# -.86320178103776+00# -.8700028211076+00# -.769787182957926+00# 

-.779220957809076*00# -.985217238729726+00# -.980124514032796+00# -.984131070029766+00# -.995411794206326+00# 

-.994468762296296+00# -.962107994013576+00# -.970340133392826+00# -.96198551440056+00# -.981257182307766+00# 

-.981564224503676+00# -.974559811956836+00# -.953605922717736+00# -.947106821353746+00# -.964282560561836+00# 

-.973836419290836+00# -.985466757017856+00# -.979905070706646+00# -.979871071409916+00# -.979164983252696*00# 

-.975605722671226+00# - . 97597 1 222907276 *00# -.97456311380036+00# -.991739262118936*00# -.980660565185976+00# 

-.995779161315966+00# -.992417462608646+00# -.993237575700486+00# -.953386728378856+00# -.949113908787086+00# 

-.9700560435626+00# -.977678463148696+00# -.902059646196676+00# -.985333382552716+00# -.948982909738816+00# 

-.971950269478356+00# -.940518296103296+00# -.916112966686516+00# -.975707293686046+00# -.980705561446246+00# 

-.908699350288416+00# -.982631493955666+00# -.955920821580146+00# -.946955085059656+00# -.965838826047756+00# 

-.901172651015676+00# -.912662732911196+00# -.989764054017556+00# -.980604514993226*00# -.993199849101936+00# 

-.987551416537786+00# -.956675965814686+00# -.948203289149976+00# -.967318431838516+00# -.982535089455656+00# 

-.982358769471436+00# -.986019457211736+00# -.9996+00# -.995352129802416+00# -.995658645180076+00# 

-.99956+00# -.99956+00# -.995917987949416+00# -.999575619903036+00# -.99856+00# -.99956+00# -.971103483723476+00# 

-.971103483723476+00# -.9986+00# -.991878210092166+00# -.992076624819766*00# -.991977417455966+00# 

-.98956+00# -.994540016475156+00# -.9926762881056+00# -.993608152290076+00# -.988499999999996+00# 

-.920950239761846+00# -.920950239761846+00# -.920950239761846+00# -.9966+00# -.972807862371446+00# -.981177810683036+00# 

-.99956+00# -.99956+00# -.978414139098136+00# -.986458866991626+00# -.99556+00# -.99956+00# -.998378781976166+00# 

-.998378781976166*00# -.9956+00# -.980143964473976+00# -.966698967132446+00# -.993277501329236+00# 

-.98656+00# -.988155236392256+00# -.982616574729016+00# -.985365905560636+00# -.985499999999996*00# 

-.870836556026386+00# -.870836556026386+00# -.870836556026386+00# -.992999999999996+00# -.959582808239576+00# 

-.907720257454396*00# -.99956*00# -.99956+00# -. 990528 3034 58216+00# -.994276106411996+00# -.99256+00# -.99956+00# 

-.964602495504266+00# -.964602495504266+00# -.9926+00# -.9916+00# -.969114604836046+00# -.969114604036046+00# 

-.99056+00# -.954447949588636+00# -.954447949588636+00# -.989999999999996+00# -.971103483723476+00# 

-.971103483723476+00# -.98956+00# -.991870210092166+00# -.98956+00, -.97790662068436+00# -.9730662044766+00# 

-.97790662068436+00# 920950 23976 1 646 +00# -.920950239761646+00# -.920950239761846+00# -.909294277749416+00# 

-.909294277749416+00# -.909294277749416+00# -.934222684549746+00# -.934222684549746+00# -.986999999999996+00# 

-.934892583246666+00# -.954659469630566+00# -.980143964473976+00# -.966698967132446+00# -.966690967132446+00# 

-.963433196070556*00# -.957601712411166+00# -.960517454640856+00# -.870836556026386*00# -. 870 8365 560263 86 +00# 

-.870836556026386+00# -.846455167944566+00# -.846455167944566+00# -.846455167944566+00, -.903910085903326+00, 

-.903910085903326+00# -.903910885903326+00# -.951606189465866+00# -.954555888461286+00# -.964602495504266+00# 

-.959979597319426+00# -.976350138048716+00# -.9676+00, -.952548197162676+00, -.952548197162676+00, 

-.96656+00, -.950267987908776+00, -.950267987908776+00# -.965999999999996+00# -.963640079813326+00# 

-.963640079813326+00# -. 9088064 1 161 8816 + 00# -. 908 68641 161 8816+00# -.908 886411618816+00# -.907813530093346 + 00# 

-.907813530093346+00# -.907813530093346+00# -.932211020312176+00# -.932211020312176+00# -.932211020312176+00# 

-.958761470787076+00# -.958761470787076+00# -.958761470787076+00, -.975071764357956+00, -.975071764357956+00, 

-.962999999999996+00, -.97533419127540E+OO# -.99039819023046+00, -.96256+00# -.983565802372136+00# - ,96356 58023 7 2 1 36 +O0# 

-.9626+00#. -.946277224999046 + 00# 921 076882 31 724 6 +00# -.949499470375986+00, -.992 51617397 5036+00, 

-.958525734851266+00, -.860728466680756+00, -.842849538187566+00, -.892929102802826+00, -.959955275651086+00, 

-.968074009590036+00, -.925509073094486+00# -.773191985177226+00# -. 733022210337346 +00# - . 8 32 739276 3881 26 +00# 

-.926855791062416+00# -.964962057412646*00, -.916613432241956*00, -.913441796759666+00, -.93463775098116+00# 

-.042006489768646+00, -.840189210181526+00, -.881005157099936+00, -.928244004923086+00, -.958313288846556+00, 

-.99140142246656+00, -.975079613670456*00, -.941787481507756+00, -.745754526660146*00, -.717075176658976+00, 

-.84230286402596+00# -.860548350287866+00# -.911706430006486+00# -.970596002041826+00, -.744938666903736+00# 

-.927818407740076+00# -.707127670629386+00# -.561279620684866+00# -.971039209797856*00# -.927084659697836+00# 

-.975648026466076*00# -.922728571262066+00# -.765083206622556*00# -.720110634652166+00# -.820264603797566+00# 

-.920513166311446*00# -.551344784058966+00# -.981481090299386+00# -.905525037662826*00# -.967864569084146+00# 

-.923435235995306+OO# -.761202446507716+00# -.713127578458346*00# -.80481848383616+00, -.909433388239616+00# 

-.967554833999916+00# -.940243655401096+00# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0, 0.0# 0,0# 0.0, 

0 . 0 # 0 . 0 , 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

061 -.995716531820676+00# -.952786687956286+00# -.929774176014226+00# -.964730350963256*00, -.839315309231776+00# 

-.881086551721856+00# -.95601755236896+00# -.942802396631726+00, -.999466682648136+00, -.964340603664496+00, 

-.747482165424316+00, -,900320530680086+00, -.972253360351336+00, -.994277738628036+00, -.925727886698196*00, 

-.992839349656846*00, -.998971349947536+00, -.992615909063446+00, -.832144850717336*00, -.756539060173376+00, 

-.098337683325246*00, -.922054080096276+00, -.708204740896866+00, -.821118395956946+00, -.964747266783356+00, 

-.936700728555666+00, -.793616742533586*00# -.88084054689236+00# -.947610044660386+00# -.996711106300206*00, 

-.994254536348636+00, -.994642217274056+00, -.974115241691756+00, -.974579188130986+00, -.850514578203396+00, 

-.914524724232036+00, -.961528909340706+00# -.996897072218756+00, -.853426438869516+00, -.911996576622246*00, 

-.95191949487286+00, -.997966803021946+00, -.911803272773826+00, -.942800954772396+00, -.972481297060046+00, 

-.99228753072936+00, -.978810771388696+00, -.998381701225386+00, -.996115790766356+00, -.905437472403426+00, 

-.840461265836356+00, -.920158007101816*00# -.980601562689716+00, -.99741377752226+00, -.835425666002556+00# 

-.081865942962286+00# -.958382612952286*00# -.999401338146446*00# -.16+01# -.16+01# -.16+01# -.16+01# 

-.16+01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# -.16+01# 

-.16+01# -.739689746656496*00# -.719897990933436+00# -.05116662976076+00# -.909466233698696+00# 

-.925793165114456+00# -.621387914159296+00# -.651061791551736+00# -.669529131851996*00# -.868389980010306+00# 

-.920793240837116+00# -.907753055207546+00# -.895959245912476+00# -.911857058085166+00# -.904039113070416+00# 

-.886737849846526*00# -.894756843504966+00# 4 54 J 3763638 5256+00# 1 325872201 3036F +00# -.112657221253076+00# 
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APPENDIX E 


PCONRST (Cont.) 


OGROOBJ 

OGRDG 


-.2A57<»<.18109q<(AE+00# -.372 52 680700796E + 00> -.1277757083191E+00* 
-.6650730A183887E+00» -.785 994912 80269E^00» 799626190341 01 E+00# 

-.9012625127168E+00, -.685638 373924 92 E +00, 44630198 3631 8 3E ♦OO, 

-.249432608 5 5685E +00# -. 2 39 38 0865 29 206E +00» -, 3 8544758031 867E400# 
-.68328205980549E+00# -. 72 55063 49754 51 E+00» -.714996e7253023E+00» 
-.819688627211 73 E400> - , 8 58 20 31 5564034E *00 » -.79979623889693E400# 
-.83017223254758E+00# -.74685239264797E+00# -. 78238030234334 E+00# 
-.85536227795987E400# - . 841 34 608903399E 400» -. 8632017810377E+C0» 

-. 7792209578 0907E*00> 9852 1 72 3872972 E 400i - . 9801 2451403279E400/ 

-.99446876229629E400# -.96210799401 357E+00# 9703401 3339282E400# 

-.98 15642 2450367 E+OOi -.974 5 598 119568 3E +00# -.95360592271 773E+00» 

-.97 383641 92 9083E+00# -.98546675701785E+00. 9799050 7070664E+00# 

-. 97568572267122 E +00# 97597 1 2 22 90727 E +00 » -. 974 56311 38003E+00, 

-.995779161 31 596E +00# -. 99241 74 6260864E +00» - . 99323757570048E+00> 
-.978056043562E+00. -.977678463148696+00* -.98205964619667E+00* 
-.971950269478 35 E +00* -.94051 82961 0329E +00* -.9161 1296668651 E+00, 

-.98 86993502 88416+00* -. 98263 149395566E +00 * -, 95 5920821 58014E + 00* 
-.981 172651 01 567E +00* -.91 266273291 1 1 9E+00* -.989764054017556+00* 
-.98755141653778 E+00* -.95667 596581 468E+00* -.948203289149976+00* 
-.98235876947143E+00* -.986019457211736+00* -.999E+00* 

-.9995E+00, -.9995E+00* -.995917987949416+00* -.999575619903036+00* 
-.97110348372347E+00* -.9986+00* -.991678210092166+00* 

-.9895E+00, -.994540016475156+00* -.992676288105E+00* 
-.920950239761846+00* -.920950239761846+00* -.920950239761 84E+00* 
-.99956+00* -.9995E+00* -.978414139098136+00* -.986458866991626+00* 
-.99837878197616E+00* -.9956+00* -.980143964473976+00* 

-.98656+00* -.988155236392256+00, -.982616574729016+00, 
-.87083655602638E+00* -. 8708 365 5602638 E +00* -.870836556026386+00* 
-.98772025745439E+00* -.99956+00* -.9995E+00* -.99052830345821E+00* 
-.964602495504266+00, -.964602495504266+00* -.9926+00* -.9916+00* 
-.99056+00* -.954447949588636+00* -.954447949508636+00* 
-.971103483723476+00* -.98956+00* -.991878210092166+00, -.98956+00* 
-.9779066206843E+00* -.920950239761846+00* -.920950239761846+00* 
-.909294277749416+00* -.909294277749416+00* -.934222684549746+00* 
-.934892583246666+00* -.954659469630566+00* -.980143964473976+00* 
-.963433196870556+00* -.957601712411166+00* -.960517454640856+00* 
-.870836556026386+00* -. 84645 516794456E+00* -.846455167944566+00* 
-.903910885903326+00* -.903910885903326+00* -.951606189465866+00* 
-.959979597319426+00* -.976350130048716+00* -.9676+00* 

-.96656+00* -.950267987908776+00* -.950267987908776+00* 
-.963640079813326+00* -.908886411618816+00* -.908886411618816+00* 
-.907813530093346+00* -.907813530093346+00* - . 9322 1 102031 2 176+00* 

-.95 87614707 8707E +00* -.958761470787076+00* -.958761470787076+00* 
-.962999999999996+00* -.975334191275406+00* -.99039819023046+00* 
-.9626+00* -.946277224999046+00* -.921076882317246+00* 
-.958525734051266+00* -.860728466680756+00* -.042849538107566+00* 
-.968074009590036+00* -.925509073094486+00* -.773191985177226+00* 
-.926855791862416+00* -.964962057412846+00* -.916613432241956+00* 
-.642006489760646+00* -.840189210181526+00* -.801805157099936+00* 
-.99140142246656+00* -.975079613870456+00* -.941787481507756+00* 
-.84230286402596+00* -.860548350287866+00* -.911706430006466+00* 
-.927818407740076+00* -.707127670629386+00* -.561279620684866+00* 
-.975648026466076+00* -.922728571262066+00* -.765083266622556+00* 
-.920513168311446+00* -.551344784050966+00* -,901481890299386+00* 
-.923435235995386+00* -.761202446507716+00* -.713127578458346+00* 
-.967554833999916+00* -.940243655401096+00* 0.0* 0,0* 0.0* 0.0* 0.0* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.623693315896766+04* -.825485917495656+04, -.128373505939446+03* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 

.111750617069346+00* .346007490356476-02* -.791179587404186-03* 0.0* 
0.0* 0.0# 0.0* 0.0# 0,0* 0.0, 0.0, 0.0* 0,0* .172355057300226+00* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
.297147996627226-01* .513157343808076-02, 0.0* 0.0* 0.0* 0.0* 0.0* 
0,0* 0.0* 0.0* 0.0* 0,0* .216204720084866+00* -« 1 583877481 5508E-01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 , 0 . 0 * 
-.741553402475196-03* 0.0* 0.0, 0,0* 0,0* 0,0* 0,0* 0.0* 0,0* 0,0* 
0.0, .432251115186316+00* .278324933948946+00* -.653720186225946-03* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

.149729876215316-02* 0.0* 0,0* 0.0, 0,0* 0.0, 0.0* 0.0* 0.0* 0.0* 

0.0* .156717145589836+00* .124172646070746+00* .712531231405736-03* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.98073200426626-03* 0.0* 0,0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 

0.0* .442521955642946-01* ,359488896697626-01* .33108282790296-07* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

,582164670986676-02* 0.0* 0.0* 0.0* 0.0* 0,0* 0,0* 0.0* 0,0* 0.0* 

0.0, .321018427837616+00* .176716427573896+00* , 31 35561 68092 586-02* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.125426602472266-02* 0.0* 0,0* 0.0# 0.0, 0.0* 0.0* 0.0* 0.0* 0.0, 
0.0* ,196168354188746-01* .361962584014586-01* -.122214180948866-02* 
0 . 0 * 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

.40502392474683E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0, .55145262286079E-01* -.335044059917786-01* .2499324212318E-02* 

0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 * 0 . 0 * 

.121996302O7825E-O3, 0.0* 0.0, 0.0* 0.0* 0.0, 0.0* 0.0* 0.0* 0.0, 

0.0, .64596341109715E-01, -.26526777356036-01* .203984475456486-02* 
0.0* 0.0* 0.0* 0,0* 0.0, 0.0, 0.0, 0.0* 0.0* 0.0# 

.433684728881926-02, 0.0* 0.0* 0.0* 0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 

0.0, .16O15178067559E+O1* .33140678677466+00* .303784475998136-07* 
0.0, 0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.140820576184386-02* 0.0* 0.0* 0.0* 0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 

0.0* .313696204620076+00* .124058414568056+00* ,23500355314356-02* 
0.0* 0.0* 0.0, 0.0* 0.0* 0.0, 0.0, 0.0, 0.0* 0.0* 

.311307419092256-02* 0.0, 0.0, 0,0* 0.0* 0.0, 0.0, 0.0* 0.0* 0.0, 

0.0* . 5652163301 2 67 8E +00* .385210244046186+00* .178400694968376-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.4501876665396-03* 0.0* 0.0* 0.0* 0.0, 0.0* 0,0* 0.0* 0.0* 0.0* 0.0, 
.253925049042516+00* .130923568140746+00, .313506473486456-03, 0.0* 
0.0, 0.0, 0.0, 0.0* 0.0* 0.0, 0.0, 0.0, 0,0* .714671327318796+00* 


-.140692670806986+00* -.671314211730646+00, 
-.786485402907696+00, -.848438947943986+00, 
.516406345596476-04, -.328926008347796+00* 
-.393761474008446+00, -.461570252696976+00, 
-.694154765056746+00, -.726400008041936+00, 
-.15156 3460 82 392 6-02* -. 801 006346 22<f76E +00, 
-.076464444042996+00* -.870211023929716+00* 
-.8700028211076+00* -.769787182957926+00* 
-.984131070029766+00, -.995411794206326+00, 
-.96190551448056+00, -.981257182307766+00# 
-.947106821353746+00* -.964282560561836+00* 
-.979871071409916+00* -.979164983252696+00, 
-.991739262118936+00* -.980660565185976+00, 
-.953386728378856+00* -.949113908787086+00* 
-.985333382552716+00* -.940982909738816+00* 
-.975707293606046+00* -.960705561446246+00* 
-.946955085059656+00* -.965838826047756+00* 
-.980604514993226+00* -.993199849101936+00, 


-.967318431838516+00, 

-.995352129802416+00* 


-.982535009455656+00* 
.995658645180076+00, 

-.99856+00* -.99956+00* -.971103483723476+00* 
-.992076624819766+00* -.991977417455966+00, 
-.993608152290076+00, -.988499999999996+00, 

-.9966 + 00* -.972807862371446+00* 98 1 1 778 1 068 3036 + 00 * 

-.99556+00* -.99956+00* -.998376781976166+00* 
-.966698967132446+00* -.993277501329236+00* 
-.985499999999996+00, 
-.959582800239576+00* 

-.99256+00* -.99956+00* 
-.969114604836046+00* 
-.971103483723476+00* 


.985385905560636+00* 

-.992999999999996+00* 

-.994276106411996+00* 

-.969114604636046+00* 

-.989999999999996+00* 


-.97790662068436+00* -.9730662044766+00* 


-.920950239761846+00* 

-.934222684549746+00, 

-.966698967132446+00, 

-.870836556026386+00* 

-.846455167944566+00* 

-.954555088461286+00* 

-.952548197162676+00* 

-.965999999999996+00* 

-.908886411618816+00* 

-.932211020312176+00* 

-.975071764357956+00* 


-.909294277749416+00, 
-.966999999999996+00* 
-.966698967132446+00* 
-.670836556026386+00* 
-.903910865903326+00* 
-.964602495504266+00* 
-.952548197162676+00* 
-.963640079813326+00* 
-.907813530093346+00* 
-.932211020312176+00* 
-.975071764357956+00* 

-.96256+00* -.983565802372136+00* -.983565802372136+00* 
-.940499470375986+00, -.992516173975036+00, 
-.892929102802826+00* -.959955275651086+00* 
-.832739276388126+00* 
-.93463775090116+00* 
-.950313288846556+00* 
-.717075176658976+00* 
-.744938666903736+00* 
-.927004659697836+00* 
-.820264603797566+00* 
-.967864569084146+00* 


-.733022210337346+00 
-.913441796759666+00 
-.020244004923086+00 
-.745754526660146+00 
-.970596082041826+00 
-.971039209797856+00; 

-.720110634652166+00 
-.905525037662026+00 
-.80481848383616+00* -.909433388239616+00* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 


0 . 0 * 0 . 0 * 0 . 0 * 0.0 


0 . 0 * 0 . 0 * 0 . 0 * 0 
,691776825475436 
0.0* 0.0, 0.0 
0 . 0 * 0 . 0 , 0 . 0 , 0 
.394164394786026 
.307124943473706 
0 . 0 * 0 . 0 * 0 . 0 * 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
.276381853373846 
0.0* 0.0* 0.0* 0 
0 . 0 * 0 . 0 , 0 . 0 * 0 
.386700284573126 
0 . 0 * 0 . 0 * 0 . 0 , 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
.170112259059686 
0 . 0 * 0 . 0 * 0 . 0 * 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
.876328930668166 
0 . 0 * 0 . 0 * 0 . 0 , 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
.301792039826366 
0 . 0 * 0 . 0 * 0 . 0 * 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
.470361478139216 
0 . 0 * 0 . 0 * 0 . 0 * 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
•360989358224956 
0.0* 0.0* 0.0 
0«0* 0*0* 0.0* 0 
,913681300796426 
0.0, 0.0* 0.0* 0 
0 . 0 * 0 . 0 , 0 . 0 * 0 
,357812980344886 
0 . 0 * 0 . 0 , 0 . 0 * 0 
0 . 0 * 0 . 0 * 0 . 0 * 0 
,380339212026956 
0.0* 0.0* 0.0* 0 
0.0* 0.0, 0.0, 0 
.285445841804156 


0 . 0 , 0 , 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 

► .847450706838996-03* 
309665119396+00* 

0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
.4167149264366+00* 
0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
.457368452774656-01* 
0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
,201068070520966-01* 
0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
,284494888699646+00* 
0.0* 0.0* 0.0* 

0 . 0 * 0 , 0 * 0 . 0 * 
.088158633390876-01* 
0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
.833613696769356-01* 
0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 
-.396498649902566-03* 
0 . 0 * 0 * 0 , 0 . 0 * 

0.0* 0.0* 0.0* 
.349420116382736+00, 
0 . 0 * 0 . 0 * 0 . 0 , 

0.0* 0.0* 0.0* 
.022992000150366-01* 
0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0.0* 
,505261401897186+00* 
0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0.0* 
.327460801203916-01, 
0 . 0 , 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 

.979655389293926-02* 
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0*0> 0.0» 0«0> 0«0> 0*0» 0*0» O.Of O.Of 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ •40564169811S74E4’00/ 
.139505O1261295E+OO/ .7072079883A731E-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .161^127235176?E-01/ .181448520776546+00/ -.145228968355566-02/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ -.141272703999556+00/ .111909170917796+00/ 

-.386659538073626-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ -.201174600064836+00/ .125125410133456+00/ -.339586256949676-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ -.814841152721046-01/ .631694664562836-01/ 

-.152180669167396-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .208704372932926+00/ -.405152715051396-02/ .194158189403056-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .138094667751236+00/ .271245352580286-01/ 

.10112597115896-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

.358014121968656+00/ .277428119490616+00/ .521050010792786-02/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0,0/ 0,0/ 0,0/ 0.0/ 0.0/ 0.0/ 0,0/ .106763633682486+00/ .188515960365716+00/ .251001379980776-02/ 

0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0,0/ 0,0/ 0.0/ -.362269379197746-01/ 

.139266303137476+00/ -.770452222654226-03/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0,0/ 0,0/ 

0.0/ 0,0/ 0,0/ 0.0/ 0,0/ -.101368468518266+00/ .801285360922426-01/ - , 2 5601 1 659 596656-02/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .478745765606116+00/ .224352431562166+00/ 

.615464303608256-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ ,23730119311836+00/ .157670649579846+00/ .301510598865236-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .110976655525796+00/ . 94855 5281201996-01 / 

.138749068550666-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ -.491125780646586-01/ .242772725690126-01/ -.347611698963386-03/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .383598864093896+00/ .660097543647616-01/ 

.616273251882336-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .253035473077046+00/ .308999365755276-01/ .463033973152026-02/ 0,0/ 0,0/ 0,0/ 0,0/ 0.0/ 0,0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ .122135501442546+00/ ,524150434348546-02/ 

.273092633531346-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .345973341817146-01/ -.434187971911346-03/ .843664392083196-03/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .71305379893726-02/ .928155673405866-01/ -.160715599666976-02/ 

0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .102686898350796+00/ 

-.697226872449066-01/ ,279317274355966-02/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0,0/ 0.0/ 0.0/ 0.0/ .875870471505416-01/ -.53181593065746-01/ .247132790025386-02/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0,0/ .108295137397716+00/ -.687790273052056-02/ 

,140414274584926-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .525952656362486+00/ .236781967364336+00/ .704724280197116-02/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .185449707766816+00/ .121065641158626+00/ 

.427726220356546-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0*0/ 

0.0/ -.510619461222926-01/ .615396082520886-01/ .442866400434886-03/ 0.0/ 0.0/ 0.0/ 0*0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .840480003973226-01/ -.429536134292266-01/ 

•17776383680596-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0* 0.0/ 0.0/ 0.0/ 0.0/ 0.0* 0.0* 0.0* 0.0* 0.0* 0.0/ 

,467640916016676+00* ,282698012680976+00/ .609210437500516-02* 0.0* 0.0/ 0.0* 0.0* 0.0/ 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0/ 0.0/ 0.0/ 0.0/ .392328294017976+00/ .160271191484996+00* .597610073323926-02* 

0.0/ 0.0* 0.0/ 0.0/ 0.0/ 0.0* 0.0* 0.0* 0.0/ 0.0/ 0.0* 0.0/ 0.0* 0.0* 0,0/ 0.0* 0.0* ,100519880247186+00* 

•395882196356666-01* .346826476646716-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0/ 0.0/ 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* -•130440493334276-01* -.622375163492826-02/ .468453560596216-03* 0.0* 0,0* 0.0/ 

0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 * 

0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 / 0 . 0 /. 0 . 0 * 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 

0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 * 0 / 0 . 0 / 0 * 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* O.Of 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0 * 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 * 0 * 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* O.Of 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0,0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* O.Of 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 

0.0* 0.0* 0.0* 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ O.p/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0* 0.0/ 0.0/ 0.0/ 0.0* 0.0* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 

0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 * 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 

0.0/ 0.0/ 0.0/ 0*0/ 0.0/ 0.0/ 0.0/ 0.0/ 0*0/ 0*0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .197492044315286+00/ 
.584776032764226+00/ -.187585638879326-02/ 0,0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .227420164765216+00/ .621984322218866+00/ -.193509503470076-02/ 0,0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .104737061086396+00/ ,345863076707736+00/ 

-.145067979221346-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .142444002330156+00/ .194575131090136-01/ .831795397773726-02/ 0.0/ 0.0/ 0.0. 0.0/ 0.0/ 0,0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .222361062934666+00/ -.102394654262446+00/ 

.11779583971726-01/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

.269338757395866+00/ .798768324919236+00/ ,328860120801766-03/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .72211468311086-01/ ,804041868864966+00/ -.140540314858586-02/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0*0/ 0.0/ 0.0/ 0.0/ .962451637025956-01/ 

,780616352192166+00/ -.275007916771516-02/ 0.0/ 0.0/ 0,0/ 0.0/ 0,0/ 0,0/ 0.0* 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0,0/ 0,0/ .29304646054626+00/ -.260819135068226-01/ .13793896368566-01* 0,0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .749518946445746-01/ .192536620474466-01/ 

.763131205696946-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .110562191173856+00/ .342103788058436-01/ .78703379441416-02/ 0.0/ 0,0/ 0.0/ 0,0/ 0,0/ 0.0/ 0.0/ 

0.0* 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ .251707150791476+00/ .247426216280566-01/ 

.615982906224946-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .240936750322516+00/ ,825007905904136-01/ .340260437925636-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0* 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .208583691509846+00/ -.189289020126016-01/ 

•100856097809226-01/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0* 0.0* 0.0/ 0.0/ 

0.0/ ,130491351141816+00/ .240309860389866+00/ -.792360726293426-03/ 0.0/ 0.0/ 0,0/ 0,0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ .104601197014616+00/ .221412479955536+00/ 

-.376490292537866-03/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0*0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .238861045330136+00/ ,121035285216576+01/ -.538656732356376-03/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0,0/ 0.0/ 0,0/ 0.0/ 0.0/ .157926068955736+00/ ,181381008387456+01/ 

.671449664832196-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0* 

0.0* .151489578882086+00/ ,185825245779016+01/ .748507448587436-02/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .153664624095916+00/ ,150254177412186+01/ 

.992674262204456-02/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0* 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ -.655586673539756-01/ .144714954214936+01/ -.409040369408296-04/ 0.0/ 0.0* 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 

0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ .149208391974546+00/ ,181971807373156+01/ 

.771768315316336-02/ 0,0/ 0.0/ 0.0/ 0.0/ 0,0/ 0,0/ 0,0/ 0.0/ 0.0/ 0.0* 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .147278462302676+00/ .177698400408716+01/ .792355291038286-02/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0,0/ 

0.0* 0.0/ 0.0/ 0,0* 0.0* 0.0* 0,0/ 0.0/ 0.0/ 0.0/ ,141986479395646+00/ .701714245875516+00/ 

.116260852949176-02/ 0.0/ 0.0/ 0.0/ 0,0/ 0,0/ 0.0/ 0.0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 

0.0/ .120462941941776+00/ ,72268954470986+00/ .052962954044116-03* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0, 0.0* 

0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .410007323644686-01/ .278490583171846+00/ 
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.10640659178729E-01J 0.0» 0.0» 0.0» 0,0» 0.0» 0*0» 0.0# 0.0# 0.0# 

0.0# .2A996118761395E>00» . 606735986893 1 1 F-0 I # .181733722332256-01# 
0*0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.127964029363996-01* 0.0# 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0* .450815380852976+00* .828605907958846-01# . 864106477620476-02# 
0.0# 0.0* 0.0* 0.0# 0.0* 0.0* 0.0* O.O# 0.0# 0.0# 

.253856297810146-01* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0* .512988450192236+00* .131118378547746+00# . 251 151929630766-01 # 
0.0* 0,0* 0.0* 0.0* 0.0* 0,0* 0.0* 0,0* 0.0* 0.0* 
-.901904018359646-03* 0.0* 0.0* 0.0# 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 
0.0* .361374192731916+00* .197412560713476+01* .10898298930726-01# 
0.0# 0.0* 0,0* 0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0# 

.244292109571356-01* 0.0# 0.0# 0.0# 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 

0,0* .221685785166486+00* .144612510935586+01* .11709557934956-01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

.972930005132856-02# 0.0* 0.0# 0,0* 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 

0,0* -.171269151466616+00# .147110336497446+01# -.107241708772466-02# 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 # 

.133367850794736-02# 0.0* 0.0# 0.0* 0.0* 0.0* 0.0# 0.0* 0.0# 0.0# 

0.0* -.799325268735736-02* .934864307258126+00* ,156460382249436-01# 

0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 # 

.173221502021456-01* 0.0* 0.0* 0.0* 0.0# 0.0* 0.0# 0,0# 0.0# 0.0* 

0.0# -.906141151411076-01# .617618157351586+00* .162439004198096-02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 #. 0 . 0 # 

.230698655804416-01# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# ,439471854440496+00# .165943650957856+00# ,232396927752556-01# 
0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.2494436699576-01# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0* 0.0# 0.0# 0.0# 0.0# 
.951754190803126-01# .172687310511176+00# .12372512288956-01# 0.0# 
0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.102049978545686-01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.359941666636856-01# .198955117090046-01# 0.0# 0.0# 0.0# 0.0# 0.0# 
0,0# 0,0# 0.0# 0,0# 0.0# .356131748119976+00# .19722100229286+01# 

0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 
-.86048920804086-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 

0.0# .502263889819476+00# .333495483131886+00# -.313473162625616-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .79741172890166+00# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 

.369903054109636+00# -.132108423615686-02# 0,0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# -.731940225800296-02# .246011689143026+00# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 
.146522564622996-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# ,16885562510396+00# .425220407725836-01# .132233219793836-01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.113839752330416-01# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .361916657719716+00# .110799136708466+00# .64029348548966-02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.195486829289736-01# 0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 

0.0# ,359315920416296+00# .270247407051316+00# , 929891 325654436-02* 
0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.913851589948346-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .444365061199416-01# .247252142006936-01# ,554146451576036-03* 
0.0* 0.0# 0.0* 0.0* 0,0# 0.0* 0.0# 0.0# 0.0# 0.0# 

.160921702819966-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# O.O# 

0.0# .136928136123736-02# .240046996041876-01# ,127454358705716-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.104747930897626-03# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0* 0.0* 0.0* 
0.0# .206110964305466-01# ,848452711916646-02# .201473564024026-03# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0* O.O# .27394054741056-01# 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 

.203202894023276-01# .408108390266396-02# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# .720268666855156-01# .586745504891626-01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.843522069806596-03# 0.0# 0.0# 0.0# 0.0# 0.0* 0,0# 0.0# 0.0# 0.0# 

0.0# -.17365320269916-02# ,430643054054246-01# .711636512564626-03# 
0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0* 0.0* 0.0* 

.150984670911726-02* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0* 0.0* 

0,0* .298658562223916-01* .261334185955176-01* .576873773851446-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.70018790131366-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 

-.9625320705026-02# . 32304 1 5 5 5 96924 6-0 1 #‘ .41741154 782 3066-02# 0.0# 
0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .753558943567856-01# 

0 . 0 # 0 . 0 * 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.396089134224076-01* .113496017329486-03, 0.0* 0.0, 0.0, 0.0, 0.0# 
0.0# 0.0# 0.0* 0.0, 0.0* .882536356402366-02* .180750317490246-01* 
0 . 0 * 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 * 
.226226706132476-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 

0,0# -.57349517331966-02# .327646658731796-01, .166741430162176-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.412579852736376-02* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0,0* 

0,0* ,929726766944426-02* -.773950489182336-02# .417486632939756-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.305206096669736-02# 0.0# 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0,0* -.543060684067936-02* -.912362080570976-02* .187900243040086-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.107843511623596-02* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.167068635045956-01# ,184515168752946-01# -.120584693492516-03# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 

.638959583428396-03# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0,0# 0,0# 

0.0# -.187639049801526-01# -.313794527393836-02# .149282792197456-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# .47576120337086-02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 * 0 . 0 * 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 # 
.138406688615686-01* ,741774095893366-02* 0,0* 0.0# 0.0* 0.0* O.O# 
0.0# 0,0# 0,0# 0.0# 0.0# -.106175335904066-01# -.664639614013886-02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.365055424406376-02# 0.0# 0,0# 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 

0.0, ,939155564188566-02* .907900485669536-02* .230722452138196-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0* 0.0* 


0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
.423530603290736+00* ,148827982255726+00* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 , 0 * 0 , 0 * 0 , 0 * 0 , 0 * 0 , 0 * 

.387397091943886+00* -,337824551267126+00* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 

0 , 0 * 0 , 0 * 0 , 0 * 0 , 0 * 0 , 0 * 0 . 0 * 0 , 0 * 

,225066289444436+00* .123343319665396+01* 
0 . 0 * 0 . 0 * 0 . 0 » 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.157746152976316+00# ,104159215044086+01# 
0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 

0 , 0 * 0 * 0 # 0 * 0 # 0 , 0 # 0 , 0 # 0 * 0 # 0 , 0 # 

.191640771432396+00# , 1 5200 380 398 31 1 6 +01 * 
0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0* 

0 . 0 # 0 . 0 # 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 

-.128203844626426+00# .138947031726316+01# 
0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 

0 . 0 # 0 , 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 , 0 * 0 , 0 * 

.401278233471466+00* .307520564593976+00* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

.409626176526726+00, .12 8 717633 369946 +00* 
0 . 0 , 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 , 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 

.443159194705256+00* .693242932132046-01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0,0, 0,0* 0.0* 0.0* 0.0* 

.844785216361096-01* .129919332243386-01* 
0.0* 0.0* 0.0* .490239481170216+00* 

0.0, 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.109457499295026-01, 0,0* 0.0* 0.0* 
.126867027704496+00* .584212600428246+00* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.420245071956936+00* -.101875183708556-02* 
0.0# 0.0* 0.0* .678608395306596+00* 

0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.207697027487386-02* 0.0* 0.0* 0,0* 
-.339173492007796-02, .26913313604666+00* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 

.330779974783556+00* .72634635382146-01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.339693847155166+00* -.145886615611386+00* 
0.0# 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.339035562982126+00, .256489160090146+00* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

,752226890051086-02* .284707080375396-01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.781363131362546-02* ,142107123091796-01* 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 

.446042639449976-01* .34351950225946-02* 
0.0* 0.0* 0,0* -.312813915663676-01, 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.218408891489396-02* 0.0* 0.0* 0.0* 
.433623469292696-01* .315701674641146-01* 
0,0* 0.0# 0,0# 0.0# 0.0* 0.0# 0.0* 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.568559012590136-01# ,364318337991936-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.208060468053376-02# .297723199563476-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 

.376318570263086-01# .134846650258446-02# 
0.0# 0.0# 0.0# .107976829628386-01# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.21412614728244F-02# 0.0# 0.0# 0.0# 

-.14 3218642 64 5276-03 * ,219902739591476-01# 
0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 

0.0# 0,0# 0.0* 0.0* 0,0* 0,0* 0.0# 

.538352283585786-02* -.512784881370066-02# 
0,0# 0,0# 0,0# 0,0* 0,0# 0,0# 0,0* 

0,0* 0*0# 0,0# 0.0# 0*0# 0,0# 0.0# 

-.473419366489546-02# ,209636582316476-01* 
0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

.669331157225856-02* .126744838604346-01* 
0.0* 0.0* 0.0# 0.0# 0.0* 0,0* 0.0* 

0,0* 0.0* 0,0* 0,0* 0,0* 0,0* 0,0* 

-.799357350060456-02* ,128232481148466-01* 
0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 

O.O# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

,152368157308046-01* .666734506775876-02, 
0.0* 0,0* 0,0* ,591527880646996-02* 

0.0* 0.0* 0,0* 0,0* 0.0* 0.0* 0.0* 

,41357346077546-02* 0,0* 0.0* 0,0* 

.760173671263136-03, -.903039139116796-03* 
O.O, O.O* 0.0* 0.0* 0.0, 0,0* 0.0* 

O.O* 0.0* 0.0* 0.0* 0.0* 0,0* 0,0* 

-.123340819348646-01# , 3492 1 30842 3066 -01 # 
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PCONRST (Cont. ) 


.65708061702075E-03# 0.0» 0.0# 0.0» 0,0# 0.0# 0,0# 0,0# 0,0# 0.0# 

0.0# -,<.4332^97537557e-02» .3 31380 758165676-01# .65<.2^978257623£-02# 

0 , 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 

.18897109946852E-02# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 0.0# 0.0# 

0,0# . 197^27032^532 lE-01# . 36 1 282 361 802 78E-01 # . 74688452599401E-02# 

0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.1H91268388763E-01# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 

0.0# . 73096^ 00743 526E-01# . 45846142419852F-01# .62992044302357E-03# 

0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.16942018597352E-02* 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0,0# 

0.0# -.55886O3O120284E-O2# . 2 54 5 65 775091 52E-01 # .5380901378183E-03# 

0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.15598652733978E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 

0,0# .176335260253786-01# ,159520332124876-01# ,607726929758566-02# 
0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0,0# 

,734002277753586-02# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -,30370159809136-01# .230742020603346-01# .465560206465456-02# 
0.0# 0,0# 0.0# 0,0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 

,17426535747676-02# 0,0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 

-.330201831076396-01# ,519512895972456-01# .117541744976236-01# 0,0# 
0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# -.19430216378146-01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 

.107371851244O3E-O1# ,236050674146276-02# 0,0# 0.0# 0,0# 0,0# 0.0# 
0.0# 0,0# 0.0# 0.0# 0.0# -,063519948145016-02# ,797622204810516-02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 
. 17047068318855E-02# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0,0# 0.0# 0.0# 

0.0# .10073821 57565 3E-01# . 1 223539 5761 34 E-01 # ,623973178288336-02# 
0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 

.752401552944566-02# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0,0# 

0,0# -.27293286284334E-01# ,950944031166926-02# .510687773343546-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 

•234681935263416-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# ,152380532824466-01# .343980737150596-01# .840715734227176-03# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.152394500631376-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 

0,0# -.19202380415542E+00# 246549170978696+OO# 

0 , 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 , 0 # 

-.12190671466126-03# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.033643467710936+00# -.107904017614016+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 
-.131142555061526-04# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 
0.0# -.960119020777126-01# -. 12427458940935E+OO# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 
-.107065098021116-03# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 
0.0# -.81491O0O626493E-O1# -,10547932467486+00# -.111308580465716-04# 
0,0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.393427665184576-04# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0,0# -.960119020777126-01# -.124274589489356+00# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 
-.7579125953761E-03# 0.0# 0.0# 0.0# 0.0# 0,0# 0*0# 0.0# 0.0# 0,0# 

0.0# -.554881098225766+01# -.718220539587486+01# -.75791259537616-03# 
0.0# 0,0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 

-.5245702202461E-04# 0,0# 0.0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 

0.0# -.155957699465436+01# -.201866421343076+01# 

0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# O.O# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 
-.207816333169466-03# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 0.0# 0,0# 
0.0# -.15405260192576+01# -.199400630460936+01# -.210420394603426-03# 
0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0,0* 

-.27539936562926-03# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 

0.0# -.104844680706696+01# 135707442233766+01# 

0,0# 0.0# 0*0# 0.0# 0*0# 0.0# 0,0* 0.0# 0,0# 0*0# 0.0# 0,0# 0,0# 0,0# 
-,19209005800696-03# 0,0# 0,0# 0.0* 0,0# 0,0# 0,0# 0,0# 0,0# 0.0# 

0.0# -,122738691284146+01# -.158668850045796+01# 

0,0# 0*0# 0,0# 0,0* 0,0# 0.0# 0.0# 0,0* 0,0# 0,0* 0,0# 0,0# 0,0# 0,0# 
-.30162787664156-03# 0,0# 0,0# 0.0# 0,0# 0,0# 0.0# 0,0# 0,0# 0.0# 

0,0# -.15179435678504E+02# -.196477530056556+02# 

0.0# 0.0# 0,0# 0,0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 0.0# 
-.207335750692646-02# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 
0.0# -.15179435678504E+02# -.196477530056556+02# 

0 . 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 
-.104914044049226-03# 0,0# 0.0# 0,0# O.C# 0,0# 0.0# 0.0# 0,0# 0.0# 
0,0# -.522153771055376+01# -.675858348225386+01# 

0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0.0# 0,0# 0,0# 0,0# 0,0# 0,0# O.O# 0,0# 
-.493677999775696-03# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# C,0# 
0,0# -.960119020777126-01# -.124274569409356+00# 

0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 
-.131142555061526-04# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# O.O# 0.0# 
0,0# -,414499912634586+01# -.536514800470666+01# 

0 , 0 * 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 * 0 , 0 # 0 , 0 # 0 , 0 # 
-,355163756229396-03# 0,0# 0.0# 0,0# 0.0# 0,0# 0,0# 0.0# 0,0# 0,0# 
0,0# -,06410711869946+00# -.111847130540416+01# -,118028299555376-03# 
0.0# 0,0# 0,0# 0.0* 0,0# 0,0# 0*0# 0,0# O.O* 0,0# 
-•131142555061526-04# 0,0# 0,0# 0,0# 0.0# 0,0# 0,0# 0*0# 0,0# 0,0# 
0.0# -.31131245230176+00# -.402952408769086+00# -.425221347914436-04# 
0,0# 0,0# 0,0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 

-,425221347914436-04# 0,0# 0,0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0,0# 
0.0# -.960119020777126+00# -.124274589489356+01# 

0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 , 0 # 
-.520794246455046-03# 0.0# 0,0# 0,0# 0,0# 0,0# 0.0# 0,0# 0,0# 0,0# 
0.0# -.639459101353246+01# -.827694437837286+01# 

0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 , 0 # 0 , 0 # 
-.176321130416366-03# 0.0# 0,0# 0.0# O.C# 0.0# 0,0# 0,0# 0,0# 0,0# 
0.0# -.259232135609626+01# -,335541391621236+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 
-.310670512723836-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 
0.0# -.333803144978616+01# -.432063607894076+01# 

0.0# 0.0# 0.0# 0.0# 0.0# C.O# 0.0# 0.0# 0.0# O.O# 0.0# O.O# 0.0* O.O# 
-.383305936937726-03# 0.0# 0.0# 0.0# 0,0# 0.0# O.O# O.O# O.O# 0,0# 


0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 

O.O# 0.0# 0.0# 0*0# 0.0# 0.0# 0,0# 

-.592346046004116-02# .509213249143776-01# 
O.O# 0.0# 0.0# 0.0# 0,0# 0.0# 0*0# 

0,0# 0,0# 0.0# O.O* 0.0# 0.0# 0.0# 

-.26707691723866-01# .450355937716276-01# 
0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 

0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 

-.103644103279526-01# . 2525662P 9961 71 6-01 # 
0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 * 0 # 

0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.119688002697366-01# ,207471447307926-01# 
0 . 0 # 0 , 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 * 0 # 0 * 0 # 

0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 

,335590299453346-02# , 22671 454461 8626-01 » 
0 * 0 # 0 , 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 

0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 , 0 # 0 * 0 # 0 * 0 # 

•323422856802966-01# .173663351040586-01# 
0 * 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 * 0 # 0 * 0 # 

0*0# 0*0# 0.0# 0*0# 0,0# 0*0# 0*0# 

♦441982981361156-01# -.485467545399516-03# 
0.0# 0*0# 0.0# -.188051212909376-01# 

0*0# 0*0# 0*0# 0.0# 0,0# 0*0# 0*0# 

.77465877545616-03# 0.0# 0*0# 0.0# 

-. 107095041798096-01# .814244575367476-02# 
0*0# 0*0# 0*0> 0*0# 0.0# 0,0# 0.0# 

0 . 0 # 0 , 0 # 0 * 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 

•504935194479656-02# .150356151642446-01# 
0,0# 0*0# 0*0# 0,0# 0,0# 0*0# 0,0# 

0 * 0 # 0 * 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 , 0 # 

-.837337563719476-02# .109036218945816-01# 
0.0# 0.0# O.O* 0,0# 0,0# 0,0# 0.0# 

0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 

.122617876881626-01# .113108107077136-01# 
0,0# 0,0# 0,0> 0,0# 0,0# 0.0# 0.0# 
-.262285110123056-04# 0.0# 0.0# 0*0# 
-.892501716561476+00# -.1155224321616+01# 
O.O# 0,0# 0*0# 0,0# 0,0# 0*0# 0,0# 
-.113867272702796-03# 0.0# 0.0# 0.0# 
-.960119020777126-01# -.124274589489356+00# 
0,0# 0.0# 0,0# 0.0# 0,0# 0,0# 0,0# 
-.131142555061526-04# 0.0# 0.0# 0.0# 
-.783843482561476+00# -.101458074375386+01# 
0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 

0.0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 

-,288035706233136+00# -.372823768468046+00# 
0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 
-.131142555061526-04# O.O# 0.0# 0.0# 
-.554881898225766+01# -.718220539587406+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0*0# 0,0# 0,0* 0.0# 

-.384047608310856+00# -.497098357957386+00# 
0.0# 0,0# 0.0# 0,0# 0,0# 0,0# 0,0# 
-.213022456037376-03# 0.0# 0.0# 0.0# 
-.152147664385976+01# -.19693483957886+01# 
0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 

-.201624994363196+01# -,260976637927636+01# 
0.0# 0*0# O.O# 0,0* 0.0# 0,0# 0.0# 

-.143207238008426-03# O.O* O.O# O.O# 

-.140632701861506+01# -.182030257857826+01# 
0.0# 0,0# 0,0# 0.0# 0,0# 0.0# 0,0# 
-.167648648048666-03# 0.0# 0.0# 0.0# 
-.220827374778746+01# -.285831555825496+01# 
0,0# 0.0# 0.0# 0,0# 0.0# 0,0# 0,0# 
-.207335750692646-02# 0.0# 0.0# 0.0# 
-.151794356785046+02# -.196477530056556+02# 
0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 
-.207335750692646-02# 0.0# 0.0# 0.0# 
-.76809521662176+00# -.994196715914766+00# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.713209281238766-03# 0.0# 0.0# 0.0# 
-.361430839517716+01# -.467623970131316+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.131142555061526-04# 0.0# 0.0# 0.0# 
-.960119020777126-01# -.124274589489356+00# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.566164990374626-03# 0,0# 0.0# 0.0# 
-.260021987284386+01# -.336563749167426+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0*0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.960119020777126-01# -.124274509489356+00# 
0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 

0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 

-.31131245230176+00# -.402952408769086+00# 
0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 
-.131142555061526-03# 0,0# 0.0# 0,0# 

-.381 283147715246+01# -.49352013277656+01# 
O.O# 0,0# 0.0# 0.0* 0.0# 0.0# 0.0# 
-.873436507207766-03# 0.0# 0.0# 0.0# 
-.1290879768196+01# -.167087152530396+01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.354084898666116-03# 0.0# 0.0# 0.0# 

-.22 74476567280 56+01 »■ -.294 400626990126 + 01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.455941361151616-03# 0.0# 0.0# 0.0# 
-.280625400853336+01# - . 363 232 1 1744 21 E + 01 > 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
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0.0» -.2 78<^34 5160^5 36E♦01» 3603 96 3095 1 91 E +0l» 36031 3^09678<i2F-03» 

0.0> 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.33877648126493E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.24802A5586963E+02* - . 3 2103^67953703E *02* -.338776481264938-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.33877648126493E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.1344166629088E+01* -. 1 739044 25 28 500 E +0 1 * -« 1835995770861 3F-03* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.10600827591749E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.23560028776566E+01* 3052 1 1 99277802 E*01 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.13114255506152E-04* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.96011902077712E-01# -. 1242745894 8935E+00* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.248420497O5149E-O3* 0.0* 0.0# 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.1O9912302135O8E+O1, -.14226690518616E+01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.19671383259229E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.960U902077712E-01* -.12427450948935E*OO» 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.92842383647452E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.67971634708799E+01* 0790O2O68O3O96E+O1* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.20982808609844E-03* 0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0* 
0.0* -.172821423739e0£+Ol# -.22369426108082E+01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.01OO7792717729E-O3* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -. 5930731072227E+01* -.76765396104345E+01# -. 8 100779 271 7729E-03* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.24917085461689E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.87470780070707E+01* -.113219247305428*02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 * 0 * 0 . 0 * 
-.119476245584778-02* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.192O230O415542E+O1* -,24854917897069B*O1* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.7579125953761E-03* 0,0* 0.0* 0,0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 

0.0* -.55488189822576E+01* 71 82 2053 95 8748E +01 * -.7579125953761E-03* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.27539936562928-03* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 

0.0# -.15595769946543E+01* -.201866421343078+01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.2753993656292E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* -.42424547428491E+01# -.549129128978168+01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.70643335250443E-03* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* . 
0.0* -.42424547428491E+01* -.549129128978168+01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.20733575069264E-02* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0,0# -.151794356785048+02* -. 19647753005655E+02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.20733575069264E-02* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.174176578452228+02* 225448327940528+02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.237907603492858-02* 0.0# 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.174176578452228+02* -,225448327940528+02# 

0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.172524104264698-02* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 0,0* 0.0* 
0.0* ‘-.12630810339898+02* -.163488977505848+02* -.172524104264696-02* 
0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.340970643159968-03* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.12 50217384 37078+02* -.16 1 82 394979464 E +02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.118921460009068-02* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0# 
0,0* -.301283147715248+01* -.49352013277658+01* -.520794246455048-03* 
0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.073436507287768-03* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0# -.639459101353248+01* -.827694437837288+01* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.959092798565628-03* 0.0* 0.0* 0,0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.814148047248398+01* -. 10538059570307E+02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.103556837574618-02* 0.0* 0,0* 0.0* 0.0# 0,0* 0.0* 0.0* 0.0* 0.0* 
0,0* -.24802455869636+02* -.321034679537038+02* -.338776481264938-02* 
0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0# 0.0* 0.0* 0.0* 
-.336776481264938-02* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 
0,0* -.24802455869638+02* -.321034679537038+02* -.338776481264938-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.402725231844858-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0,0* -.29484262759698+02* -.3816344194388+02* -.402725231844858-02* 
0,0* 0.0* 0.0* 0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 
-.402725231844858-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 
0.0* -.184513972267608+02* -.238828704175186+02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.252027438724738-02* 0.0* 0.0* 0.0* 0.0* 0,0* 0,0* 0.0* 0.0* 0,0* 
0,0# -.184513972267606+02* -.238828704175186+02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.126929759252196-02* 0,0* 0.0* 0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.872635117412786+01# -.112950966123646+02# 

0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-,928423036474528-03* 0.0* 0,0* 0.0* 0.0* 0,0# 0.0* 0.0* 0,0* 0.0* 
0.0* -.768486996655696+01* -.994703822865496*01* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.620300664626038-03* 0.0* 0.0# 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.63367855371298+01* -.820212290629688+01* -.865540863406066-03* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.124459013327266-02* 0.0* 0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 
0.0* -.91118756948576+01* -.117941066362776+02* 124459013327266-02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 


0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.24802455869638+02* -.321034679537036+02* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.24602455869636+02* -.321034679537036+02* 
0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.776106291511726+01* -.100456598286796+02* 
0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.322079362585716-03* 0.0* 0,0* 0.0* 
-.960119020777128-01* -.124274589489358+00# 
0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.131142555061528-04* 0.0* 0.0* 0,0* 
-.181879120175998+01* -.235416239899678+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.150129206006428-03* 0,0* 0,0* 0,0* 
-.144017853116576+01# -.186411884234028+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.131142555061526-04# 0,0* 0.0* 0.0# 
-.679716347087998+01* -.879802068030966+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 * 
-.928423836474526-03* 0.0* 0.0* 0.0* 
-.153619043324346+01* -.198839343182958+01* 
0.0* 0.0* 0.0* O.D* 0.0* 0.0* 0.0* 
-.236056599110746-03* 0.0* 0.0* 0,0* 
-.59307310722276+01* -.767653961043458+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.10242261 3947656+01* -.236121720029768+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.119476245584778-02* 0,0* 0.0* 0.0* 
-.874707800707078+01* -.113219247305428+02* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.262285110123056-03* 0.0* 0.0* 0.0* 
-.554801898225768+01* -.718220539587488+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.201624994363198+01* -.260976637927638+01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.213022456037378-03* 0.0* 0.0# 0.0* 
-.201624994363196+01* -.260976637927638+01* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.579476442680826-03* 0.0* 0,0* 0.0* 
-.5171929876863E+01* -. 6694 372764 27056 +01 » 
0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
57947644268O02E-O3* 0.0* 0.0* 0,0* 
-.151794356785048+02* -.196477530056558+02# 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.207335750692646-02* 0.0* 0.0* 0.0* 
-.151794356785046+02* -.196477530056556+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.237907603492858-02* 0.0* 0.0* 0.0* 
-,174176578452226+02* - . 225 448327940526 +0 2* 
0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.237907603492856-02* 0,0* 0.0* 0,0* 
-.12630810339098+02* -.163488977505846+02* 
0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.249630945402056+01* -.32311393267236+01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.170767059729756-02* 0.0* 0.0* 0.0* 
-.870646112396476+01* -.112693515977836+02* 
0.0* 0.0* O.O* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.639459101353246+01* -.827694437837286+01, 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.873436507287766-03* 0.0# 0.0# 0.0* 
-.702169664271 99E +01# -.908864889570076+01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.11120439529266E-02# 0.0# 0.0* 0.0* 
-.758158855760196+01* -.981335423300416+01# 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.24802455869636+02* -.321034679537036+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* O.D* 0.0# 0.0* 0.0* 0.0* 0.0* 

-.2948426275969E+02* -.3816344194306+02* 
0.0* 0.0* 0.0# 0.0# 0.0* 0.0# 0.0* 

0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 

-.29484262759698+02* -.3816344194388+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.252027438724738-02* 0,0* 0.0* 0.0* 
-.184513972267688*02* -.238828704175186+02* 
0.0* 0.0* 0.0# 0.0* 0.0* 0.0* 0.0* 
-,252027438724738-02* 0,0* 0.0* 0,0* 
-.929276359634078+01# -.120282418759096+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.11919313799376E-02# 0.0* 0,0* 0,0* 
-.679716347087998+01* -.879802068030968+01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.104967557242458-02* 0.0* 0.0* 0,0# 

-. 45413364 596368E +01# -.5 8781537709 5196+01# 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0# 0.0* 0.0* 0.0* 

-.91 118756940576+01* -.117941066362776+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.643279743920676+01* -.832639749578616+01# 
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APPENDIX E 


PCONRST (Cont. ) 


-.e7e65311691221E-03i 0.0# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* O.O* 0.0* 
0.0* -.95A9730150062E + 01* 1 236085077<»2 3<»E +02* - . 1 30A 396626799F-02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.1304396626799E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* -.65288093<.1284AE+01* -. 84506720852755E4-01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.95366656702264E-03* 0.0* 0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.69819701930323E+01* -. 90372283 1 01 279E +01 * 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.23897737562265E-02* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.17495977851207E+02* -. 22646207585946E*02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
>.23897737962265E>02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.17701996643136E+02* -.22912871408243E+02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.24179138411323E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.17701996643136E+02* -.22912871A08243E+02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.1778004000259E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0,0* -.13017097759A71E402* -. 1 684 8 89524 521 2E +02* 1778004000255E-02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-•1778004000255E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* -.79187792572394E^01* -. 102498025781 6 E+02* -. 10816252 175923F-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-•10816252175923E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.79187792572394E+01* -. 1024 9802 5 7816E *02* “. 10816252 175923E-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.65383050305476E*03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.4766814638e687E«01* -.61956925022181E«01* 

0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.97045490745S28E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.47364224238518E+01* - . 61 306665073242E +01* -.6469474357584f-03* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.2518411732799E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* -.72008926558284E+01* -.93205942117009E+01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.43104453346088E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.31557571467449E+01* - . 40847063275797E *01* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-•99668341846758E>03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0,0* -.1031605162547E+02* 1 3352751618946E+02* -.140906839572436-02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.207003586126776-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.96973038102681E>01* -. 12551865176039E+02* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.196289613310176-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.79640461684122E+01* -.103083945514646+02* -.1087808220181E-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.36528649453643E-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -«30176629502006E*02* -. 39059618259603E*02* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.280831020623356-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.76895403058353E«01* -.995308335935256401* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.837371191046736-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.143040311594616402* -.185146587237266402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.594683651445836-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.512660907960316402* -.6635711042626402* -.700242989620796-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.438699973U803E-02* 0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.140454290985166402* -.181799328796446402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.916993062995786-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.160122059563646402* -.207256629541136402* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.227029278669466-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.125511077047646402* -.162457333290496402* 

0.0* 0.0* 0*0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.41439345229766-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* -.306074750060276402* -.397208406013196402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.310007473660226-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0*0* 0.0* 0.0* 0.0* 
0.0* -.137708591456286402* -.170340936631676402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 * 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.109338036255496-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.165113156030716401* -.213716938633486401* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.65362462202977E-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.11178189250356402* -.144686736775316402* -.15268276823286-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.666648019732316-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0,0* -.543283008679456402* -. 70320732554 104 6 402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.413616106750566-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 
0.0* -.267780362734746402* -.346605930431756402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.231560667289096-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.564625210340286401* 730831966726126401* 

0 . 0 * 0 * 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.668987898392866-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0*0* 0.0* 0.0* 
0.0* -.138605839357476402* -.17940675493586402* -,189321568747526-02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0*'0.0* 0.0* 

-.768160490626846-02* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.842447561966036402* -.109043590086403* -.11506982300196-01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.759598404742096-03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
0.0* -.140014810261086402* -.181230479670546402* 


0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.95497301500626401* -.123608507742346402* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.891769374418366-03* 0.0* 0,0* 0.0, 
-.698197019303236401* -.903722831012796401* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.953666567022646-03* 0.0, 0.0* 0.0, 
-.174959778512076402* -.226462075859466402, 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.238977375622656-02* 0.0* 0.0* 0.0* 
-.174959778512076402* 226462075859466402* 

0 . 0 * 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.241791384113236-02* 0.0* 0.0* 0,0* 
-.177019966431366402, -.229128714082436402* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.241791384113236-02* 0,0* 0.0* 0.0, 
-.130170977594716402* -.168480952452126402* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.130170977594716402* -.168480952452126402* 
0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 , 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.791877925723946401* -.10249802578166402* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.478681463886876401, -.619589250221816401* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.653830503054766-03* 0.0* 0.0* 0,0* 
-.710488075375076401* -.919631962221156401* 
0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 * 0 . 0 * 0 , 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.184377603873456401, -.230652193494266401* 
0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 
-.983569162961436-03, 0.0, 0.0, 0.0, 
-.315575714674496401, -.408470632757976401, 
0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 
-.431044533460886-03* 0.0* 0.0* 0.0* 
-.729690455790616401* -.944486880119026401* 
0 . 0 * 0 . 0 * 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 , 0 * 

-.15155117293256402* -.196162761024886402* 
0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 * 0 . 0 * 0 . 0 * 
-.132455369737096-02* 0.0* 0.0* 0.0* 
-.143707274295266401, -.186009881412636401* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.26743449638526402* -,346158252616016402* 
0.0* 0,0* 0,0, 0,0* 0.0* 0,0* 0,0* 
-.412182261823636-02* 0.0* 0.0* 0,0, 
-.205601609941366402* -.26612383590076402* 
0.0* 0.0, 0,0* 0,0* 0,0* 0.0* 0.0* 
-.105031349357046-02* 0.0* 0,0* 0,0* 
-.613055012995276401* -.793517870448046401* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.195378609665826-02* 0.0* 0.0* 0.0* 
-.43552537819216402* -.563729458699896402* 
0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 

0.0* 0,0* 0,0* 0.0* 0.0* 0.0* 0.0* 

-.32118 04043374Z6*-02, -.415725155 291156 402* 
0.0* 0,0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.191846366062316-02* 0,0* 0,0* 0.0, 

-.672011902536546401* -.870865186314066401* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.210710551072026-02* 0.0* 0.0* 0.0* 

-.16621 2354670686 *02* -.215139703492576402* 
0.0* 0.0, 0.0* 0.0* 0.0* 0,0* 0.0* 
-.171435446018136-02* 0.0* 0.0* 0.0* 
-.303385148664956402, -.392691572519676402, 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-*419159906063916-02* 0,0* 0.0, 0.0* 
-.226962233652256402* -. 293 7723 1 1 6232 96 402* 
0.0, 0.0, 0.0, 0.0* 0.0* 0.0* 0.0* 
-.188205290707386-02* 0,0* 0.0* 0,0* 
-.000484085041296401* -.103611970315116402* 
0.0* 0.0* 0,0* 0.0* 0.0, 0.0* 0.0* 
-.225527885527436-03, 0.0, 0.0, 0.0, 
-.478530734561816+01* -.619394151233146+01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0*0* 

0.0* 0.0* 0.0, 0.0* 0.0* 0.0* 0.0* 
-.488211029000166+02* -.63192503657676+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.742069684465466-02* 0.0* 0,0* 0.0* 
-.302816039541616+02, -.391954936736536+02, 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.365760913015886-02* 0,0* 0,0* 0,0* 
-.16954467192626+02* -.219452943309006+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.771220985970916-03, 0.0* 0.0* 0.0* 
-.489778474740996+02* -.633952049302876+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.562384572814156+02* -.727931750222496+02* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 

-.556116110596356+01, -.719818062731796+01* 
0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 
-.191246080606126-02* OiO* 0.0* 0.0* 



APPENDIX E 


PCONRST (Cone. ) 


0.0» 0.0, 0.0, 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0,0# -.^6761585Q66768F+01# 605 266 302 8368 3F +0 1 # 

-.63871600600596E-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.1A837953698783E+02# -. 1 9205750 1 71 32A E +02# - . 202 671 <.5 1 9589<rE-02 # 0,0# 0,0# 0.0# 

0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.45109600962427E+02# -. 5 8 3 88 3562 38 33 7E +02# 
-,6l6l5l560379^9E-02# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 

0.0# -,537^54206767AE+02# 695662 71962072E +02 # -. 7341081 301 2528E-0 2# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# -.34513474520174E+02# 4467308 51 5952 5E +02 # 

-.47141918185965E-02# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0,0# 

0.0# -.152633638011E+02# -. 19 75638675 58 1 E +02# -.20848212402767E-02# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.8615248131917E+02# -. 1 1 1 5 1 288 5 5 6665 E +03 # 

-.11767558272037E-01# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.35559178704793E+01# -. 46026609623249E+01# -.485702444209628-03# 0,0# 0.0# 0.0# 

0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# -.18141441665425E+02# -. 2 34 81 674 3 22 94 8E +02# 
-.24779375900478E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 

0.0# -.61707676926363E+01 # - . 79872 3 4970 262 2 E +0 1 # -, 84286450366167E-03# 0.0# 0.0# 0.0# 

0.0# 0,0# 0.0# 0,0# 0,0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# -.147022572484288+02# -.190301092320448+02# 
-.200817975584958-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.458548146445978+02# -. 59352935862628E+02# -.62633042614839E-02# 0.0# 0,0# 0,0# 

0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# -.550863336917088+02# -. 71 3 01 904 645 80 6E +02# 
-.752423646753198-02# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 

0,0# -.374794972346158+02# -.485122055943538+02# -.511932054610318-02# 0,0# 0.0# 0.0# 

0,0# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# -.173909453196978+02# -. 2 25 1025 699592 7E + 02# 
-. 23754273739045F-02# 0.0# 0.0# 0,0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.623024420179248+01# -. 8064 2 1 9371 1 508E +01 # -. 8 5098 83937295 5 E -03 # 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0,0# -.114746406123048+02# -.148523903688258+02# 
-.15673199423674E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 > 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 » 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0.0# 0.0> 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0» 0.0# 0.0# 

0.0# 0.0« 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0,0# 0.0# 0.0* 0.0# 0,0# 0,0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0* 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0*0# 0.0# 0.0# 0,0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 

0.0# 0.0# 

OICOUNT ■ 0# 
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APPENDIX E 


PCNMNIO,TCNMNIO,CNMNIO 

(LINKE) 


miNKF 

OOBJ - •65191554649502E+04> 

OG ■ -.99612540953328E+00# 9^935 0391 3978 0 E ♦00# -* 91 3263079982 75E+00# 953 56 51 3252776E+00# - . 842 1<»^2340268 5E +00> 

-.87930132866256E^00» -.94943039392475E+00> - .941 165905061 51 E+00» 99979629 U8632E *00# - . 96O758063O5849E +00» 

71020040190442 E *00# 89261 372792 22 5 E +00> -.97487936989847E+00# 99720 8364884 1 E+00> 91 48 51 5004 1 I 37E +00> 

-.98692171568133E+00# ~.9907O395183731E+OO> -.98738794677924F400# 824 3364 3 1 8682 2 E+00# 724959504 5366 E+OO# 

-.87958719907644E+00# - . 91 531 243530964E +00# -.7863165O027427E*OO» 81 520651 288 81 7F+00» -.95893891032271 E+OOi 

-.93397310233129E+00# -.77047471646326E400# 86407397671 2 57E 400» 9539360462 1 982E 400> - . 991 61 1 676 81 86 1 E +00> 

-.994O3678201254E4OO# -.99996910131648E+00> -.96744642732971E400# -.971 56065370306E400# -.84098757771036E400# 

-.91200828420965E400i -.96650889933874E400# -.99483668345919£400» 83906068026602E400# -.9054913251438BE400# 

-.94940311795159E400# -. 99989 3994 85 1 71 E 400» 89573828310831 E400» -.93087470450384E400# -.96557861963069E400# 

-.9901 8839937236 E400# -. 98376 330035505E 400# -. 990450739002 8E400# -. 9892573 3799774E400# -.980974798770646400# 

-.82434636287098E400# - .91 205 74721001 E 400# -. 9821 4871 107437E400# 991 66439025051 E 400# -.821916794330266400# 

-.867563420735076400# -.950932753161636400# -.998320063062076400# -.1E401# -.16401# -.16401# -.1E401# 

-.1E401# -.16401# -.16401# -.16401# -.IE401# -.16401# -.16401# -.1E401# -.1E401# -.1E401# -.16401# 

-.16401# -.74909438806767E400# -.729548136184856400# -. 85557944 372 28E 400# -. 895722892001 23f4 00# 

-.902820528429916400# -.629054175158926400# -.665278272734496400# -.684 B4870563006E 400# -. 841 5 39350 56572E +00# 

-.907704700274966400# -.893956548241746+00# -. 879336951 7628E+00# -.904371286738976400# -.884333509056926+00# 

-.89017570628836+00# -.89764493853366+00# -.460542382037356+00# -. 145 1 81 57664 209E +00# -.125028034432486+00# 

-.247113778637096+00# -.395185022566076+00# -.139194761587966+00# -.151046666862326+00# -.679671701548296+00# 

-.67468261637019E+00# -.772340360941636+00# -.766182212288836+00# -.761 55441953953E+00# -. 8291 203343924 7E +00# 

-.847666564093776400# -.63793231317053E+OO# -.46193976913077E+00# -.21 266704426779E-02# -.30167499953676+00# 

-.245023521695326+00# -.239599491950046+00# -.409889708731516+00# -.412445467815696+00# -. 4439618941 303 4E +00# 

-.65268142014016400# -.722926596098836+00# -.67389465554642E+00# -.653384416406016+00# -.67917170138826+00# 

-.8011859435867E+00# -.038536326425166+00# -.757767264427926+00# -.371655882828756-02# -.820385599773196+00# 

-.031726225350496+00# -.741437566163526+00# -.778672186176816+00# -.877324424024546+00# -.8484942996734E+00# 

-.831768259746546+00# -.818980528509546+00# -.849613503225966+00# -.830763030874376+00# -. 753 1 5148936 43 E +00# 

-.762973731730296 +00# -.987363576529096+00# -.902821396953636+00# -.986382146252306+00# -.996818601518846+00# 

-.994874429116156+00# -.96641353693086+00# -.972348979270566+00# -.967567051624416+00# -.984328728816006+00# 

-.98590798888616+00# -.977964882048586+00# -.956477487540386+00# -.950405871647436+00# -.967329958611476+00# 

-.977381007020096+00# -.980938063848176+00# -.981884281196866+00# -.98201669039594E+00# -.982 28 87036708 3E +00# 

-.975353050524946+00# -.975321922211356+00# -.976498862431156+00# -.990944697819086+00# -.989844348042966+00# 

-.997440862030426+00# -.99375737974676+00# -.992601756508486+00# -.95509391021026+00# -.950713401627166+00# 

-.977197967304786+00# -.977610269850156+00# -.903047526332516+00# -.988803545781676+00# -.95226436327479E+00# 

-.976986059184706+00# -.944110659940636+00# -.920723102178046+00# -.98010321527096+00# -. 98 32 724664 13 35 E+ 00# 

-.991246228058766+00# -.984357133372216+00# -.957690956308186+00# -.949497771894216+00# -.968O1503592123E+OO# 

-.902762113956776+00# -.91794319904936+00# -.994071727214086+00# -.982594986676836+00# -.99396229543546+00# 

-.988066976742746+00# -.958006800127796+00# -.9499041619961E+00# -.968226128620226+00# -.983569142696046+00# 

-.98571140460516+00# -.98725290521476+00# -.9996+00# -.986293804146746+00# -.978247015910816+00# 

-.99956+00# -.99956+00# -.999930875069426+00# -.996835808524586+00# -.99056+00# -.99956+00# -.969007395531736+00# 

-.969007395531736+00# -.9906+00# -.906431729139286+00# -.987707191589926+00# -.98706946036466+00# 

-.98956+00# -.993966110769746+00# -.99206725164096+00# -.993016681205326+00# -.980499999999996*OO# 

-.909877795193576+00# -.909877795193576+00# -.909077795193576+00# -.9966+00# -.9760801083636+00# -.995262637015046+00# 

-.99956*00# -.99956+00# -.90297436387O626+OO# -.990309696239856*00# -.99556+00# -.99956*00# -.982872646866756+00# 

-.982872646866756+00# -.9956+00# -.977075048511336*00# -.975728059514526+00# -.999326505501596+00# 

-.98656+00# -.990708133744486*00# -.985180231566566+00# -.987948182655526+00# -.985499999999996+00# 

-.84993051023036*00# -.84993851023836+00# -.84993851023836*00# -.992999999999996+00# -.959462137083566+00# 

-. 980676312972446+00# -.99956*00# -.99956*00# -.99310698754916+00# -.996880355804046+00# -.99256+00# -.99956+00# 

-.942134925544066+00# -.942134925544066+00# -.9926+00# -.9916*00# -.955014643176436+00# -.955014643176436+00# 

-.976812835066696+00# -.947233397967746+00# -.947233397967746+00# -.989999999999996+00# -.969007395531736+00# 

-.969007395531736+00# -.986431729139286*00# -.986431729139286+00# -.98706946036466+00# -.96657068390996+00# 

-.96657068390996+00# -.96657068390996*00# -.909677795193576+00# -.909877795193576+00# -.909877795193576+00# 

-.89360200318046*00# -.09368200310046*00# -.89368280318046+00# -.92864353373756+00# -.92864353373756+00# 

-.986999999999996*00# 9447248 1 56673 56 +00 » -.95848355393768F+00# -.977075048511336+00# -.975728059514526+00# 

-.975728059514526+00# -.97260602241225E+00# -.944046728837296*00# -.944046720837296+00# -.84993851023836+00# 

-.04993851023036+00# -.84993851023836*00# -.824302042047896+00# -.824382842047696+00# -.824382842047896+00# 

-.082001807190716+00# -.882001007190716+00# -.882001807190716+00# -.942134925544066+00# -.942 134925 5^ 4066 ♦00> 

-.942134925544066+00# -.962718647550006+00# -.962718647550086+00# -.9676+00# -.948797617920196*00# -.948797617920196+00# 

-.96656+00# -.944449161561496*00# -.944449161561496+00# -.96599999999999E+00# - .961 379070 984066 +00# 

-.961379070904066+00# -.884841919760596+00# -.884841919760596+00# 884 04 1 91 976059E +00# - . 880 342 841 41698E +00# 

-.680342841416986+00# -.880342841416986+00# -.915382552353386*00# -.91538255235338E+00# -.915382552353306+00# 

-.94629421083819E+00# -.9462942 10 8 3 81 9E +00# -.946294210638196+00# -.970373242670116+00# -.970373242670116+00# 

-.962999999999996+00# -.970133286861236*00# -« 98541 0885841 096*00# -.96256+00# 97941 38 564 8939E+00 » 9794 1 3 8 5646 9396 +00# 

-.9626+00# -.92O399129160O0E+OO# -.906074698449976+00# -.945932322064896*00# -.985302495874036+00# 

-.939457450096286+00# -.842157317449316+00# -.815657674920496+00# -.873250046747326+00# -.952964211846286+00# 

-.996691011930456*00# -.89938393696357E+00# -.737902297798996+00# -.694661457465916+00# -. 795 422730 262 74E +00# 

-.894329015578046+00# -.931565027230756+00# -.910201881428916+00# -.90340609329B02E+00# -.931011502597916+00# 

-.000373044461946+00# -.792628962481446*00# -.852815150400456+00# -.90664 199692837E+00# 9 508862 1 79934 5E +00# 

-.986293318029066+00# -.982003629151086*00# -.910170333868766+00# -.691785321769066+00# -.654001610380156*00# 

-.70200267558016+00# -.819241117753676+00# -.896377417926666*00# -.987401631981046+00# -.694093735659376+00# 

-.945580797661616+00# -.646897033358366+00# -.477079325952156*00# -.960804287913776+00# -.929694944360636+00# 

-.989273654396346+00# -.891516675211116+00# -.717005457120416+00# -.669625724027966+00# -.778671903263326+00# 

-.894264510382586+00# -.46775877200436+00# -.943725577090X56*00# -. 89993733344 52 5 6+00# -.966101253611996+00# 

-.89402825124076+00# -.70581977555026+00# -.64992773666436+00# -.753869962710186+00# -.889038049078036+00# 

-.977551415826496+00# -.938671674731746+00# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

OSEND 


(LINKF) 


ISL INKF 
ONOV ■ 3# 

OX • .938324016448966-01# .644988044116766+00# .802706045935996+01# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0$6ND 


110 



APPENDIX E 


BLOCK, BLK 


1$BLK 

OOBJ 

OOBJI 

OX 


OXI 

06 


OGI 


■ .6519l55<»8<»9502f 

• .6519155^849502E+04# 

• .9 38 3240 16<i4 896F-0W . 6449880441 1676E *00 » . 802 70604 59 3 599 E +01 > 0.0» 
0 . 0 » 0 . 0 > 0 , 0 » 0 * 0 > 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

■ . 938 32401 644896E-01* . 64498 80441 1 676E *00* . 80270604593599E +0 1 » 0.0* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

■ -.99612540953328E400* -.94935039139788E+00* -. 91 3263079982 75 E *00* 

-.0793O132866256E+OO* 9494303939247 5E +00* -. 941 165905061 51 E+00* 

-.71020040190442E+00* 89261 372792 22 5E +00* 974879369898 47E+00* 

-.98692171 5681 33E +00* -. 998 703951 8373 1 E +00* -. 98738 794677924E+00* 
-.87958719907644E+00* 91 531 24 35 30964 E +00* -.7 863 1650 8 27 4 27 E+00* 

-.93 39731 02331 29E +00* -.77047471 646326E +00* -. 8640 7397671 2 57E +00* 
-.99403678281 254 E+00* -. 99996910 1 31648 E+ 00* -. 96744642732971 E+00* 
-.91 20082 8420965 E+00* -.966 5 088 993 3 874 E+00* -.994 8 3 66 8 34 5 91 9 E+00* 

-. 949403117951 59E +00* -. 99989 39948 51 7 1 E +00* -. 89573 82 83108 31 E +00* 
-.99018839937236E+00* -.98 376 3300 35 50 5 E+00* -.9904 507 39002 8 E+00* 

-.82 4 3 46 36 2 8 7098 E+00* -. 91 2057472 1 001 E+00* -. 9821 4 871 1 074 3 7E +00* 

-. 867563 42073507E +00* -. 95093 2753 16163E+00* -. 998 32006 306207E+00* 
-.lE+01* -.lE+01* -.lE+01* -.lE+Ol* -.lE+01* -.lE+01* -.lE+01* 
-.lF+01* -.749O94308O6767E+OO* -. 729548 1 361 e485E+00» 

-.90282052 842991 E+00* -.6290541751 5892 E+00* -.6652782 72734 49E+00* 

-. 907704 70027496E +00* -. 89395654824 174E +00* -. 87933695 1 762 8E +00* 
-.8901757062883E+00* -. 89764493 8533 6E +00* -.468542 3828 373 5 E+00* 

-.24 711377863709E+00* -. 395 1 8 5022 56687E +00* -. 1 391 94761 58796 E + 00* 

-. 67468261 637019E +00* -. 77234036094 1 63E +00* - . 7661 822 1 228 8 8 3E+00* 
-.84766656409377E+00* -.63793231317853E+00* -. 461 9397691 3077E+00* 
-.24 502 3 5 21 69532 E+00* -.2 39 5994 91 9 5 004 E+00* -. 40988970873 1 51 E+00* 

-. 652681 4201 401E +00* -.722926 59609883 E+00* -.67389465 55464 2E +00* 
-.8O118 594 35067E+OO* -. 838 5 36 3264 25 1 6E + 00* -. 75 77672 64 4279 2E +00* 
-.83172622535049E+00* -.741 43 75661 635 2E+00* -. 77667218617681 E +00* 
-.03176825974654E+OO* -.81 898052 850954E +00* -. 84961 350322 596 E+00* 
-.7629737 31 73829E +00* -.90736357652969E+OO* -. 98282 139695 363E+00* 

-. 9948 744291 161 5E +00* -. 96641 35369308E+00* -.97234 8979270 56E +00* 
-.98590798888616+00* -. 977964 882048 58E +00* -.956477487540386+00* 
-.97738100702009E+00* -.98893 80638481 7 E+00* -.981 88428 119686E +00* 
-.97535305052494 E+00* -. 975 32 19222 1 135E+00* -. 976498862431 1 5 E+00* 
-.997448862030426+00* -. 99375 73797467E +00* -.992601 7565084 8E +00* 
-.97719796730478 E+00* -.9776102698501 5E+00* -.983047526332516+00* 
-.976986059184786+00* - . 944 1 1 065994063E+00* -. 92072 3102178 04 E+00* 

-. 9912462280 5876E+00* -.98435713337221 E+00* -.957690956308186+00* 
-.98276211 395677E +00* -.91794319904936+00* 994071 72721408E +00* 

-.908066976742746+00* -.958006800127796+00* -.94990416199616+00* 
-.98571148460516+00* -.98725298521476+00* -.9996+00* 

-.99956+00* -.99956+00* -.999930875069426+00* -.996835808524586+00* 
-.96900739553173E+00* -.9986+00* -.986431729139286+00* 

-.98956+00* -.993966110769746+00* -.99206725164096+00* 
-.909877795193576+00* -.909877795193576+00* -.909877795193576+00* 
-.99956+00* -.99956+00* -.982974363870626+00* -.990309696239856+00* 
-.982872646866756+00* -.9956+00* -.977075040511336+00* 

-.96656+00* -.990708133744486+00* -.985188231566566+00* 
-.64993851023836+00* -.84993851023836+00* -.84993851023636+00* 
-.980676312972446+00* -.99956+00* -.99956+00* -.99310698754916+00* 
-.94213492S54406E+00* -.942134925544066+00* -.9926+00* -.9916+00* 
-.978812835068696+00* -.947233397967746+00* -.947233397967746+00* 
-.969007395531736+00* -.986431729139286+00* -.986431729139286+00* 
-.96657068390996+00* -.96657068390996+00* -.909877795193576+00* 
-.89368200318046+00* -.89368280318046+00* -.09368200318046+00* 
-.986999999999996+00* -.944724815667356+00* -. 95848 35 5393768 E +00* 
-.97572 805951452 E+00* -.97260 602241 225E +00* -. 94404672 803729E+OO# 
-.04993851O2383E+OO* 849938 5102 38 3E +00* -.024302842O4789E+OO* 

-.88200180719071E+00* -.88 2001 8071 9071 E+00* -. 88200 1 80719071 E+OO* 
-.942134925544066+00* 96271 8647 55008 E +00* -. 96271 864755008 E+OO* 

-.9665E+00* -.94444916156149E+00* 9444491 61 561 49E +00* 

-.96137907098406E+00* 88484 1 91 976059E +00* 88484 191 976059E +00* 

-.080342841 41 698 E+00* -. 88034 284 1 41 69 8 E +00* -.9153825523533eE+00* 
-.94 629421 083819E +00* -.946294210 83 81 9E+00* -.94629421083 8 19E+00* 
-.96299999999999E+00* -.9701 3 32868612 3 E+00* -,98541888584109E+00* 
-.962E+00* -.92039912916808E+00* -.90807469844997E+00* 

-.93 94 5745009620 E + 00* 84 2 1 5 73 1744931 E + 00 » -. 81 56 5767492049 E + 00* 

-.99669101 193 04 5 E+00* -. 89938 393696357E +00 » -.73790229779899E+00* 

-. 89432901 557804E +00* 931 56 50272 3075E +00* -.91020188142891E+00* 

-.000373044461946+00* -.792628962481446+00* -. 85281 51 5040045 E +00* 
-.9862 9331 802906 E+00* 982 88 36291 5108E +00 * -.910170333868 766+00* 

-.78200267558016+00* -.819241117753876+00* -. 89637741 792666E +00* 
-.945580797661616+00* -.646897033358366+00* -. 4770 793 2595 21 5E +00* 
-.98 92736 54 396 34 E+00* 0 91 5 16675 2 1 1 1 1 E+00* -.717085457120416+00* 

-.894264 51 038258 E+00* -.46775877200436+00* -. 94372 5577090 1 5E +0P, 
-.89402025124076+00* -. 705 8197755 502E +00* -.64992773666436+00* 
-.97755141582649E+00* -.938671674731746+00* 0.0* 0.0* 0.0* 0.0* 0.0* 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

• -.996125409533286+00* -. 9493 50391 39788 E +00* 91 326307998 2 75 E+00* 

-.879301320662566+00* -.949430393924756+00* -.941165905061516+00* 
-.71020040190442E+00* -.89261 37279222 5E +00* -.974879369898476+00* 
-.96692171 568133E+00* -.998703951837316+00* -.987387946779246+00* 

-. 8795871 9907644E +00* - . 91 531 24 3530964E +00* -. 78631 6508274 27E +00* 
-.933973102331296+00* -.770474716463266+00* -.864073976712576+00* 
-.994036782 8 12 54 E+00* -.999969101316406+00* -.967446427329716+00* 
-.912008284209656+00* -.966508899338746+00* -.994836683459196+00* 
-.949403117951596+00* -.999893994851716+00* -.895738283108316+00* 
-.990188399372366+00* -.983763300355056+00* -.99045073900286+00* 
-.824346362870986+00* -.91205747210016+00* -.982148711074376+00* 
-.867563420735076+00* -.950932753161636+00* -.99832006306207E+00* 
-.16+01* -.16+01* -.16*01* -.lE+01* -.16+01* -.16*01* -.16+01* 
-.lE+01* -.749094388067676*00* -.729548136184856+00* 
-.902820528429916+00* -.629054175158926+00* -.665278272734496+00* 
-.907704700274966 +00* -. 89395 654 824 1 746 +00* -. 8793 3695 1 762 8E +00* 
-.8901757062883E+00* -.89764493853366+00* -.468542382837356+00* 


0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.953565132527766+00* -.8 42 1442 340268 5E +00* 
-.999796291406326+00* -.960758663058496+00* 
-.99720836486416+00* -.914851500411376+00* 

-.824336431 8682 2E+00* -.72495950453666+00* 
-.815206512888176+00* -.958938910322716+00* 
-.953936046219826+00* -.991611676818616+00* 

-.971 56065 370306E+00* -.840987577710366+00* 
-.039060680266026+00* -.905491325143886+00* 
-.930874704503846+00* -.965578619630696+00* 
-.98925733799774E+00* -.980974798770646+00* 

-.991 6643902 5051 E+00* - . 8 21 916794 33026E +00* 

-.lE+01* -.16+01* -.16+01* -.16+01* 

-.lE+01* -.16+01* -.lE+01* -.16+01* 

-.85 5 579443722 0E+OO* -. 89572289200123 E+00* 
-.684848705630066+00* -. 84 1 539350 56 572E +00 * 

-.904 37128673897E+00* - . 884 33 350905692E +00* 
-.145181576642096+00* -.125020034432406+00* 
-.151046666862326+00* -.679671701548296+00* 

761 55441 953953E +00* -.829120334392476+00* 
-.21266704426779E-02* -.3016749995367E+00* 
-.412445467815696+00* -.443961894130346+00* 
-.653384416406016+00* -.67917170138826+00* 
-.371655882828756-02* -.820385599773196+00* 
-.877324424024546+00* -.84849429967346+00* 
-.830763030874376+00* -.75315148936436+00* 
-.986382146252386+00* -.996818601518846+00* 

-.967 56705 162441 E+00* -.984328728816006+00* 
-.95O4O507164743E+OO* -.967329958611476+00* 
-.982016690395946+00* -.982208703670836+00* 
-.990944697019006+00* - . 989044348O4296E +00* 
-.95509391021026+00* -.950713401627166+00* 
-.988803545701676+00* -.952264363274796+00* 
-.98010321527096+00* -.983272466413356+00* 
-.949497771894216+00* -.968015835921236+00* 
-.982594966676836+00* 99396229543 54E+00* 

-.968226128620226+00* -.983569142696046+00* 
-.986293004146746+00* -.978247015910816+00* 

-.99856+00* -.99956+00* -.969007395531736+00* 
-.987707191589926+00* -.98706946036466+00* 
-.993016681205326+00* -.908499999999996+00* 

-.9966+00* -.9760801083636+00* -.995262637015846+00* 
-.99556+00* -.9995E+00* -.982872646866756+00* 
-.975728059514526+00* -.999326505501596+00* 
-.987948182655526+00* -.985499999999996+00* 
-.992999999999996+00* -.959462137883566+00* 
-.996680355884846+00* -.99256+00* -.99956+00* 
-.955014643176436+00* -.955014643176436+00* 
-.989999999999996+00* -.969007395531736+00* 
-.98706946036466+00* -.96657068390996+00* 
-.909877795193576+00* -.909877795193576+00* 
-.92864353373756+00* -.92064353373756+00* 
-.977075048511336+00* -.975728059514526+00* 
-.944046728837296+00* -.84993851023836+00* 
-.824302842047896+00* -.824302842047896+00* 
-.942134925544066+00* -.942134925544066+00* 

-.9676+00* -.948797617920196+00* -.948797617920196+00* 
-.965999999999996+00* -.961379070984066+00* 
-.884841919760596+00* -.880342841416986+00* 
-.915382552353386+00* -.915382552353386+00* 
-.970373242670116+00* -.970373242670116+00* 

-.96256+00* -.979413856489396+00* -.979413856489396+00* 
-.945932322064896+00* -.985302495874036+00* 
-.873250046747326+00* -.952964211846286+00* 
-.694661457465916+00* -.795422730262746+00* 
-.903406093298026+00* -.931011502597916+00* 
-.906641996928376+00* -.950886217993456+00* 
-.691785321769066+00* -.654001610380156+00* 
-.987401631981046+00* -.694093735659376+00* 
-.960804287913776+00* -.929694944360636+00* 
-.669625724027966+00* -.776671903263326+00* 
-.899937333445256+00* -.966181253611990+00* 
-.753869962710186+00* -.889038049078036+00* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

-.953565132527766+00* -.842144234026856+00* 
-.999796291486326+00* -.960758863058496+00* 
-.99720836488416 + 00* -.9148 5l500411’37E + 00* 
-.824336431868226+00* -.72495950453666+00* 
-.815206512888176+00* -. 950938910 3227 IE +00* 

-. 953 93604621 98 2E +00* - .991 61 1 67681 86 1 E +00* 

-.971 560653703066*00* 84098757771 0366 *00* 

-.839O6O60O266O2E+OO* -.905491325143886+00* 
-.930874704503846+00* -.965578619630696+00* 
-.989257337997746+00* -.980974798770646+00* 
-.991664390250516+00* -.821916794330266+00* 

-.16+01* -.16+01* -.16+01* -.16+01* 

-.16+01* -.16+01* -.16+01* -.16+01* 

-.85557944372206+00* - . 8957 2? 89200 1 2 36 +00* 
-.684848705630066+00* -.841539350565726*00* 
-.904371286738976+00* -.884333509056926+00* 
-.145181576642096*00* -.125028034432486+00* 
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APPENDIX E 


BLOCK, BLK (Cont. ) 


-.2A71137786370QE+00» - . 39 5 18 50 22 56687E +00> 1 39 194761 58 796E ♦00» 1 5 1 046666862 32 E +00> 67967 1 701 5482 9E +00# 

-.67468261637019E+00# -.77234036094163E+00# - . 7661 822 1 228 8 83E +00» 761 55441 9 5 3953 E +00> • . 829 1 28 3 343924 7£ +00> 

-.84766656409377E+00# 63 793 23 1 3 1 785 3E +00 » 461 9397691 3077E+00# - . 21 2 66704426779E-02# -•30167499953676+00# 

-.245023521695326+00# -. 23959 94 91 95 00 4F +00# -.409889708731516+00# -.412445467815696+00# -.443961894130346+00# 

-.65268142014016+00# -.722926596098836+00# -.673894655546426+00# -. 65 3 3844 1 640601 E +00# -.67917170138826+00# 

-.80118594358676+00# -.838536326425166+00# -. 7577672644279 2 E +00# -.371655882828756-02# -. 82038 55 997731 9E +00# 

-.831726225350496+00# -.741437566163526+00# -.778672186176816+00# -.877324424024546+00# -.84849429967346+00# 

-.83176825974654E+00# -.818980528509546+00# -.849613503225966+00# -.830763030874376+00# -.75315148936436+00# 

-.762973731738296+00# -.987363576529896+00# -.982821396953636+00# -.986382146252386+00# -.996818601518846+00# 

-.994874429116156+00# -.96641353693086+00# -.972348979270566+00# -.967567051624416+00# -.984328720816086+00# 

-.98590798888616+00# -.977964882048586+00# -.956477487540386+00# -.950405871647436+00# -.967329958611476+00# 

-.977381007020096+00# -.988938063848176+00# -.981884281196866+00# -.982016690395946+00# -.902288703670836+00# 

-.975353050524946+00# -.975321922211356+00# -.976498862431156+00# -.990944697819086+00# -.989844348042966+00# 

-.997448862030426+00# -.99375737974676+00# -.992601756508486+00# -.95509391021026+00# -.950713401627166+00# 

-.977197967304786+00# -.977610269850156+00# -.983047526332516+00# -.908803545781676+00# -.952264363274796+00# 

-.976986059184786+00# -.944110659940636+00# -.920723102178046+00# -.98010321527096+00# -.983272466413356+00# 

-.991246228058766+00# -.984357133372216+00# -.957690956308166+00# -.949497771894216+00# -.968015835921236+00# 

-.982762113956776+00# -.91794319904936+00# -. 994071 72721 4086 +00# -.982594986676836+00# -.99396229543546+00# 

-.988066976742746+00# -.958006800127796+00# -.94990416199616+00# -.968226128620226+00# -.983569142696046+00# 

-.98571140460516+00# -.98725298521476+00# -.9996+00# -.986293804146746+00# -.978247015910816+00# 

-.99956+00# -.99956+00# -.999930875069426+00# -.996835808524586+00# -.99856+00# -.99956+00# -.969007395531736+00# 

-.969007395531736+00# -.9986+00# -.986431729139286+00# -.987707191589926+00# -.98706946036466+00# 

-.98956+00# -.993966110769746+00# -.99206725164096+00# -.993016681205326+00# -.988499999999996+00# 

-.909077795193576+00# -.909877795193576+00# -.909877795193576+00# -.9966+00# -.9760801083636+00# -.995262637015846+00# 

-.99956+00# -.99956+00# -. 98 2974 363870626 +00# -.990309696239856+00# -.99556+00# -.99956+00# -.982872646866756+00# 

-.982872646866756+00# -.9956+00# -.977075048511336+00# -.975728059514526+00# -.999326505501596+00# 

-.98656+00# -.990708133744486+00# -.905188231566566+00# -.987948182655526+00# -.985499999999996+00# 

-.84993851023836+00# -. 84993051023836+00# -.84993851023836+00# -.992999999999996+00# -.959462137883566+00# 

-.980676312972446+00# -.99956+00# -.99956+00# -.99310698754916+00# -.996880355884846+00# -.99256+00# -.99956+00# 

-.942134925544066+00# -.942134925544066+00# -.9926+00# -.9916+00# -.955014643176436+00# -.955014643176436+00# 

-.978812835068696+00# -.947233397967746+00# -.947233397967746+00# -.989999999999996+00# -.969007395531736+00# 

-.969007395531736+00# -.986431729139286+00# -.986431729139286+00# -.98706946036466+00# -.96657068390996+00# 

-.96657068390996+00# -.96657068390996+00# -.909877795193576+00# -.909877795193576+00# -.909877795193576+00# 

-.89368280318046+00# -.09360280318046+00# -.89368280318046+00# -.92864353373756+00# -.92864353373756+00# 

-.986999999999996+00# -.944724015667356+00# -.958483553937666+00# -.977075048511336+00# -.975720059514526+00# 

-.975720059514526+00# -.972606022412256+00# -.944046728837296+00# -.944046728837296+00# -.84993851023836+00# 

-.84993851023836+00# -.84993051023836+00# -.824382842047896+00# -.824382842047896+00# -.824302842047896+00# 

-.882001807190716+00# -.882001807190716+00# -.882001807190716+00# -.942134925544066+00# -.942134925544066+00# 

-.942134925544066+00# -.962718647550086+00# -.962718647550086+00# -.9676+00# -.948797617920196+00# -.948797617920196+00# 

-.96656+00# -.944449161561496+00# -.944449161561496+00# -.965999999999996+00# -.961379070984066+00# 

-.961379070904066+00# -.884041919760596+00# -.884841919760596+00# -.884841919760596+00# -.880342841416986+00# 

-.800342841416986+00, -.880342841416986+00# -.915382552353386+00# -.915382552353386+00# -.915382552353386+00# 

-.946294210838196+00# -.946294210838196+00# -.946294210838196+00# -.970373242670116+00# -.970373242670116+00# 

-.962999999999996+00# -.970133286861236+00# -.985418885841096+00# -.96256+00# -.979413856489396+00# -.979413856489396+00# 

-.9626+00# -.920399129160086+00# -.908074698449976+00# -.945932322064896+00# -.985302495874036+00# 

-.939457450096286+00# -.842157317449316+00# -.015657674920496+00# -.873250046747326+00# -.952964211846286+00# 

-.996691011938456+00# -.899383936963576+00# -.737902297798996+00# -.694661457465916+00# -.795422730262746+00# 

-.094329015570046+00# -.931565027230756+00# -.910201881428916+00# -.903406093290026+00# -.931011502597916+00# 

-.800373044461946+00# -.792628962481<f46 + 00# -.052815150400456+00# -.906641996928376+00# -.950886217993456 + 00# 

-.986293318029066+00# -.982883629151006+00# -.910170333868766+00# -.691785321769066+00# -.654001610380156+00# 

-.78200267550016+00# -.819241117753876+00# -.896377417926666+00# -.907401631981046+00# -.694093735659376+00# 

-.945580797661616+00# -.646897033358366+00# -.477079325952156+00# -.960804287913776+00# -.929694944360636+00# 

-.989273654396346+00# -.891516675211116+00# -.717085457120416+00# -.669625724027966+00# -.778671903263326+00# 

-.894264510302586+00# -•46775877200436+00# -.943725577090156+00# -.899937333445256+00# -.966181253611996+00# 

-.09402825124076+00# -.70581977555026+00# -.64992773666436+00# -.753869962710186+00# -.889038049078036+00# 

-.977551415826496+00# -.938671674731746+00# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

06RD0BJ ■ -.368901444727536+04# -.862219345048316+04# -.759606544020346+02# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 

0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0GRD6 • .789265398767216-01# .283904123957836-01# -.157384921105166-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .122696902908826+00# .988870024176486-01# .881869986502216-03# 

0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .364265931461116+00# 

.535833187421546-01# .443509147904976-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# .188929461055466+00# .3920253640 558 5,6-02# .3 34314010032726-0?# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .246755710975956+00# .481978707163776+00# 

-.257292743050526-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# .320272046665776+00# .318349139391186+00# -.149147482890476-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .199824635032436+00# .728703998029416-01# 

.106323799128376-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .101359025932176+00# .145181695594076+00# .232712139696786-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.247232458690796-01# .595149363907926-02# 

.691332989062726-04# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.250710535884036-01# .917889196651936-01# .147399488510796-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .14033360453416+01# .396330380161616+00# .37619264394056-02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .222841083347386+00# 

.219346626304856+00# .210051989249196-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# .465121455225686-01# .104019246243086+00# -. 1 5761 294 7 1 2 5? 1 F-02 # 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.644716021753746-02# .467501543288156-01# 
-.141776979820016-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .240922529339346+00# .117627980990086+00# .305640283362686-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .619208541577786-01# -.257373164266166-01# 

.207090412167516-02# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .349753395954096-02# .831163705619836-03# .767707150171896-04, 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# .699621490510246-01# -.200670248701726-01# 

.1685072221O823E-O2# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .26102529006146+00# .397902062382866+00# .285638698844096-02# 0,0# 0,0# 0.0# 0,0# 0.0# 0,0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0,0# .136071106526036+01# .400676006731996+00# 

.22689128465876-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

,777442441785676+00# .126997917133656+00# .818955823693016-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# .234266069470636+00# ,155080201428416+00# . 1 69274 5 1 035 22 3F -0 2 # 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# .237249285301896+00# 

.575637009730236+00# .701658542507856-03# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# .395225232999786+00# .455247942800896+00# ,102403021583386-03# 0.0# 0,0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# ,299085874586656+00# . 53745756804416F-01# 

-.520027718557756-03# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .10159062445136+00# .155608955361476+00# -.145258486633966-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0. 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# .547106216106126+00# . 394 56 5020 3682 2F +00# 

.63241361501496-02# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 
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BLOCK, BLK (Cont.) 


.34583923733585E+00» .19‘t096<r5784753E+00» . 50 5^1 371 75 7303 E -02» 0.0, 0.0, 0.0» 0.0» 0.0, 0.0# 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, -.48223050522651E-01, . 2036954006094 1 E +00, -. 1 920 20 8644 91 fl5 E-02 , 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, . 15703038694912E+00, 

-.10711244403795E+00, . 3 5 5 707 393045 58E-0 2 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, .18888125186885E+00, -. 1 090256261 01 31E +00, . 29076039064656E-02 , 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .72917568101705E-01, -. 60277544445565E-01, 

. 15465386865193E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .16600958605975E+00, . 24644 3451 66096E-01 , . 109 5002990 3294E-0 2, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .93845482170129E-01, . 5 39586300 36139E -0 1 , 

.23860416715761E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .25929253061642E+00, . 34 379971 332891 E *00, . 295229763621 1 3E-02 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .64397707344027E-01, .21604719346294E+00, 

.15144922584506E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, -.63904428835811E-01, . 1 4972 82491978 5 E +00, -. 1 081 31 34 43 80UE-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .11888038743704E+00, -.81230006637633E-01, 

.2477910323997E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

.36568572180097E400, .2965953642U46E+00, .3041OO27583693E-O2, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .17104643334213E400, . 1 8994673879294E 400, .21085716606909E-02, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .73962869964255E-01, 

.11295338239925E400, . 87288022082956E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, .50028617961948E-01, -.25505615774562E-01, .41435765447448E-03, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .3094337536228E+00, .U591212903451E400, 

.46978745942651E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, . 20759141930337E+00, . 61 268 58 47678 27E-01 , . 369 5659271 6755E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .10265122513568E+00, .18479512823294E-01, 

. 23282078728027E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .2897376512494E-01, . 3 84 27 3724 1 232 2 E-02 , . 71 1 428 1 1 840 55 1 E-03 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, -.12253611473572E-01, . 10 54 1 1 9757 2862 E + 00, 

-.20639516360097E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0# 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .10101903724239E+00, - . 591 43 5 5 81 85 5 81 E-01 , . 2382 2068 2 88 878 E-02 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, . 86928734492241E-01, -. 4493400992 82 97E-01 , 

.21419493824203E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .91076229535821E-01, . 41 552 1 5693 3788 E-02, . 10953353585502E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .39531365319327F+00, . 3 2291 6296 31 969E +00, 

.42732092847206E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .13598001668766E+00, . 1 56430241 261 1 4E +00, . 30618 5614 40707E-02 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, -.60689312343349E-01, . 662744 471 9 53 74E-01 , 

.26717977761713E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .9167569821944E-01, -. 42 032 81 8194 575 E-01 , . 168134973 5 6581 E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, . 34295123528193E+00, . 3481 5 1 8735965E+00, 

.4174651136579E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

. 31176541883768E+00, . 211 7402744691 5E +00, . 43278087489787E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .92105472033354E-01, . 48673548741028E-01, . 30930071 573 164E -02 , 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, -.243881691464438003, 

-.13637062666039E-01, . 679924 81 378 305E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0-.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0*0, 0*0, 0.0, 0.0, 0*0, 0.0, 0*0, 0.0, 0*0, 0.0, 0*0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0*0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, . 12143106849978E+00, .6 1649 584727 70 BF +00 , 

-.26786148143023E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .14061438783291E+00, .65758639542781F+00, -. 2 8366094025 61 E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .89433412383154E-01, . 3 2662 945 501 62 1 E +00, 

-. 54434642228305E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .91626419879446E-01, . 8991 24 6592 8372E-01 , . 5091 5 5 388 2 2803E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .16663624513147E+00, -. 24 32 3 5 29494 574 E-0 1 , 

. 8029785791129E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
.15882995464188E+00, . 8401 60367 37 538 E +00, -. 820051 8 292251 2 E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .19739519666738E-01, .83028781463533F+00, -. 231 5 8 73361 0362 E-02 , 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .38030710288452E-01, 

.7994067082097E+00, -. 31 36207 5820 1 9E-02 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, .20945245858784E+00, . 5319037147 294 2E-01 , . 1 005 952977 1 906E -01 , 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .53177170775163E-01, . 5 3906 3501 56 263E -01 , 

.57827044036118E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .79912573177753E-01, . 73 6090 6 77962 54 E-01 , . 58688670373984E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .17493290392634E+00, . 78804 24 3846096E -01 , 

.59O35424O93312E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .17067638597305E+00, .12723381101003E+00, .1752743744502E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .15737040141055E+00, .36670959194181E-01, 

.73907042994823E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .794830S5029343E-01, .26346675835114E+00, -.13756614482521E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .62198338106425E-01, .24284129563417E+00, 

-* 10020502673861E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0*0, 0.0, 0*0, 0.0, 0.0, 0.0, 

0.0, .16588656614686E+00, .12213742083595E+01, -.93070987190833E-03, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .83457020169097E-01, .1 8352355510542E+01 , 

.5184555153218F-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

.70326494936094E-01, . 1 885971 36672 52 E +01 , . 56768719066748E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, O.Q, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .22065123096564E+00, . 14 5949841 8 81 02E +01 , . 92409794 3 3 399 1 E-02 , 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0. 0.0, 0.0, 0.0, -.53167122787094E-01, 

.14462691206813E+01, - . 7868 84 16 559545E-03 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, .72754885600766E-01, . 1 8469878623 66 E +0 1 , . 58753891979396E-02, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .77194473768355E-01, . 1 8028 49670904 1 E +01 , 

. 60969105958447E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, .8432907786175E-01, . 7 5874 620 507 82 3 E+00 , -. 12654 3790 5 5407E-02 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .70965922817646E-01, . 7790984 3849226E +00 , 

-.15906084002066E-02, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, -.42467297296758E-02, . 3 163722 5502 1 97E +00, . 8602 2 8867 34 12 3F-02 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
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APPENDIX E 


BLOCK, BLK (Cont. ) 


0.0> 0«0> 0.0> 0*0» 0.0> 0.0> 0.0» 0,0* 0*0> 0.0# 

.U9A53990696UE-01, 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .28285Al<»752636+00# . 231 771 223486E +00# . 9471 1 2 829830<f 2E-02 # 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .3088452109468ie+00# 

0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 
-.25002233688704E+00# . 20686966409076E-01# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# .37088417319344E+00# . 2398 5951 502 979E +00# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.12949481078369E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# .3131848498431E+00# .19774525587961E+01# .93644768450129E-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .1032729022134E+00# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

,14425970059508F+0l# . 1 097226792705 lE-Ol » 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# .128536442236E+00# .15042818221301E+01 # 

0.0# 0*0# 0*0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 

•3489446667605E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

•.10085311525503E+00# .13509436222302E+0t# .21032527540741E-02# 0.0# 
0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# .26583653577062E+00# 

0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 

.36368740544557E+00# .1373290766639E-01# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# .97664188729101E-01# . 5209296101 5 906E +00# 
0.0# 0.0# 0.0# 0.0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 
.176604969227E-01# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 

. 247721 8 11 24072 E +00# . 301 70031984762E +00# . 17426987280658 E -01# 0.0# 
0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# .30794136702124E+00# 

0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 

.22760625863E+OO# , 95642630984787E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# 0.0# -.21033346596439E-01# . 121 8031 3 757275 E +00# 

0*0# 0.0# 0.0# 0*0# 0*0# 0,0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
.16047337152651E-01# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 

0.0# .30991 30461 6567E +00# . 1975 93 77270757E+01 # . 93695683066404F-02# 
0*0# 0,0# 0.0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.61711335809877E-02# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# .370578402011 86 E+00# . 36 3818 4799604 8E +00# -. 3 2795998 533 899E-02# 
0.0# 0*0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 
-.22051699150136E-02# 0,0# 0.0# 0.0# 0*0# 0,0# 0.0# 0,0# 0.0# 0.0# 
0.0# . 50447080591 61 6E +00# . 42 17822791 7339E *00# - . 2 2065435 5 48 166E-02 # 
0.0# 0.0# 0,0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.12726413699367E-02# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 

0.0# .10220073458039E+00# . 73 0217758071 88 E-01 » . 9986292678 72 57E-02 » 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 

.1O31O978409117E-O1# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 

0.0# .221 5988164711 8E+00# . 14 3222 1 91 1 8764E +00# , 84 562 3501 4 4488E-02 # 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.38447427372408E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 

0.0# .26144675501775E+00# -. 5 44 70528293759E-01 # , 1 4 87591 53 95 192 E-01 # 
0.0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.64958922835764f-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 

0.0# . 246087587351 56E +00# . 31 86493 346 54 58E +00# . 642 8062694 21 86E-02 » 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0,0# 0.0# 0.0# 

.55734642643271E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .4467969862291 8E-03# .25896363093004E-01# .108903233110760-02# 
0*0# 0*0# 0*0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.81654728597109E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 

0.0# .328550781868020-02# .142401337744860-01# -.212925209063536-03# 
0.0# 0.0# 0*0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 

.449680464467350-03# 0,0# 0.0# 0.0# 0,0# o'.O# 0,0# 0.0# 0.0# 0,0# 

0.0# . 13692622479839E-01# .426063455833740-01# .230461888462640-02# 
0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 

,ae36799777l736E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .369780641506586-01# .544001742736160-01# .141904521106090-02# 
0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0*0# 0*0# 0.0# 0.0# 

.3332032524210-03# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 
-.665406521500936-02# .44754983535092E-01# .374201097011786-04# 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .32071447211026E-01# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0* 0*0# 0.0# 
.319219593661440-01# .393919878771410-02# 0.0# 0.0# 0.0# 0.0# 0.0, 
0.0# 0.0# 0.0# 0,0# 0.0# -.45402590805530-02# .368147590188690-01# 
0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0*0# 0.0* 0.0# 0.0# 
.301025681683830-02# 0.0# 0*0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# ,4207323939066-01# ,339257137415530-01# . 960595091 1 42 36E-0 3# 

0.0'# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.5857746546O713E-04# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .352932092193430-02# .21 06768806776 8E-01# . 1 3641 8521 8 8609E-02 # 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 

.149292029206490-02# 0.0# 0,0# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 

0,0# -.48116423830411E-O2# .301007890288120-01# .104770471728526-02# 
0.0# 0*0# 0.0* 0*0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 

.309025555241536-02# 0,0# 0.0# 0,0# 0*0# 0.0# 0*0# 0*0# 0.0# 0*0# 

0,0# .62772981919566-02# -.573300257865896-02# *321096318409986-02# 
0.0# 0*0# 0*0# 0.0# 0*0# 0*0# 0*0# 0*0# 0*0# 0*0# 

.224632044065276-02# 0,0# 0*0# 0.0# 0.0# 0*0# 0*0# 0.0# 0*0# 0*0# 

0.0# -.330359753887916-02# -.722965625025746-02# .144655233788876-02# 
0*0# 0*0# 0.0# 0.0# 0.0# 0*0# 0.0# 0*0# 0*0# 0*0# 

,745216715646776-03# 0.0# 0.0# 0,0# 0*0# 0.0# 0.0# 0,0# 0,0# 0.0# 

0,0# -.115159371620726-01# ,147933596548186-01# -.151370494289756-03# 
0.0# 0.0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.250484988654676-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 

0,0# -.815723824538516-02# -.92161092250980-02# .138930809328660-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 

.478201471428310-02# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 

0,0# .171234285421310-02# .180481790941930-01# .536802165270080-02# 
0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0* 0.0# 0.0# 

.33022100824410-02# 0.0# 0.0# 0.0# 0.0* 0,0# 0.0# 0.0# 0.0* 0.0# 0,0# 

-.181708628354540-03# -.503153368328250-03# .280263435666810-02# 0,0# 
0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# ,571063431722320-02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0* 0.0# C.O# 0.0* 

.353785765520110-01# .65770028286830-04# 0,0# 0.0# 0.0# 0,0# 0.0# 


,172445886297056+00# .120283916103596+00# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.162466055331566+00# ,575946986102446-02# 
0.0# 0.0# 0.0# .295182168002966+00# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
,19768016869286-01# 0.0# 0.0# 0.0# 
.157565604964356+00# .124402148906760+01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 * 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 
,111907482792540+01# .193456484612750-01# 
0.0# 0.0# 0.0# .160393937421020+00# 

0.0# 0.0# 0.0# 0*0# 0.0# 0*0# 0.0# 
•96542770320226-02# 0.0# 0.0* 0.0# 
-.140765934230926+00# .142033317648726+01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.051293355650626+00# .147086931783896-01# 
0.0# 0.0# 0.0# .277560526459586+00# 

0.0* 0.0# 0.0# .0,0# 0.0# 0.0# 0.0# 
.393606573444640-02# 0.0# 0.0# 0.0# 
,238552060899646+00# .2 5082021 9272 596 +00# 
0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

,170850026919586+00# .19944508816866-01# 
0.0# 0.0# 0.0# .405515977312690-01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.105411398203560-01# 0.0# 0.0# 0.0# 
,373785404391280+00# .442585671961516-01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.695587905684190-01# ,549453872498290+00# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.595008125285260+00# .482988478547610+00# 
0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.121289534999970-01# .258884612580180+00# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.122627848794870+00# .967228114269760-01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 

0.0# 0.0# 0.0* 0.0# 0.0* 0.0# 0.0* 

.247735548644090+00# ,18049666973710+00# 
0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0.0# 0.0# 0.0# 0,0# 0.0# 0.0* 0.0# 

.263019891775290+00# .334882044783250+00# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

,230778160018430-01# .185272532286070-01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.110999795234640-02# ,215235468731990-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

,156696726753020-01# .105125042322700-03# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.18495338925740-01# .202161814676800-01# 
0.0# 0*0# 0.0# 0.0# 0.0# 0.0* 0.0# 

0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 

.330401617899870-01# .306618450302330-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.323095208970190-01# .106785493622080-02# 
0.0# 0.0# 0,0# .160085904690090-01* 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.473772578155480-02# 0.0# 0,0# 0,0# 
-.104954273548650-01# . 292167358205220-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

,101801594804410-01# ,298021055312710-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 

-.102854935100570-01# . 21 62 5 31 1 0904290-01 # 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.334956328247486-02# -♦ 1 98808 1 5204 399 F-02# 
0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.417923851279466-02# .179860533062380-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 

,527599174744986-02# .113045661248550-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 

0.0# 0.0* 0.0# 0.0* 0.0# 0.0# 0.0# 

-.420440249960766-02# ,143189002281020-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0* C.O# 0.0* 0.0* 0.0# 0.0* 0.0* 

.237294773886940-02# . 1 P914 530964 7050 -01 # 
0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 

0.0* 0.0# 0.0* 0.0* 0.0# 0.0* 0.0* 

-.11201594172393E-01# -.10326750515656-01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0* O.C# 0.0# 0.0# 0.0# 

.108331574045990-01# , 1 6041 37202572 50 -02# 
0.0# 0,0# 0,0* -.70324431250710-02# 

0.0# 0*0# 0.0# 0.0# 0.0* 0.0# 0.0* 



APPENDIX E 


BLOCK, BLK (Cont. ) 


0.0> 0.0# 0.0# 0,0# 0.0# -.4288‘)^80752246E~02# .33179337^3593eE“01# .A6475057237199E-02# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.201136Q0442266E-02# . 5082 26374764 72 E'Ol # 
.84356469975271E-03# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .12421898464326E-01# .36491183519891E-01# .53310549039986E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0* 0.0# -.167539827641068-01# .483076614907618-01# 

.810416180241638-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# .44380734387663E-01# .432383349452498-01# .221046931664368-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.594830030410778-02# . 2663 1 3937256 1 1 8-01 # 

•I0784152369429E-02# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.723678465740438-02# .260480615773788-01# . 12698767306048-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .442652422525368-02# .139141520606078-01# 

.133120910020148-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# ,10327846390816-01# .196535119122628-01# .433649768537388-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# -.275262640076488-03# .266739763687938-01# 

.51260107451377E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.226807229782438-01# ,208258238550788-01# .340225630314378-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0.0# .17898958792504E-01# .147722487825448-01# 

,134073255558648-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -,2208358444215lE-0l# ,548159439385258-01# ,825029527760336-02# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 

0.0# 0,0# 0.0# 0,0# 0.0# 0,0# 0,0# 0,0# 0.0# 0.0# -.698749622657698-02# ,425203220106578-01# 

-.669016762354558-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.153150640397828-01# .215129888752948-01# , I 4783272085817E-02# 0.0# 0,0# 0.0# 0,0# 0,0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.54331270132041E-02# ,762759354431088-02# 

.50639407678656-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.786032428376976-02# ,231421995868046-02# .148003386926146-02# 0,0# 0.0# 0.0# 0,0# 0,0# 0,0# 0,0# 0.0# 

0.0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0.0# .64353330045557E-02# .146257417078726-01# .455062119444126-02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .122491696903536-02# 

.192806494895736-01# .543297560352176-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0,0# 0.0# -.193817746041256-01# . 892528047315086-02# .381615968207776-02# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# -.573285481611566-02* .10055771194996-01# 

,17064409244996-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 

.874222919770676-02# .333637382910856-01# .335208875069366-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0,0# 0,0# 0,0# 0.0# 0,0# 0.0# 0,0# 0,0# .844634631523826-02# .138997977838226-01# .932114960174186-03# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# -•1135780310l2ieE#00# 

-.259609407949026400# -.155198290013646-04# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# -,155672273768036+01# -.355825739069766+01# -.212717015901766-03# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# -.247066110148896+01# -.564727932051796+01# 

-.337602593333546-03# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.56789015506096-01# -.129804703974516+00# -.775991450068196-05# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0,0# -.56789015506096-01# -.129804703974516+00# 

-.775991450068196-05# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.785107350073986-02# -.179454823014996-01# -.107280710227946-05# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0* -.359382637523436+00# -.821453675570446+00# 
-.49107710626056-04# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.170367046510276+00# -.389414111923546+00# -.232797435020466-04# 0,0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.56769015506096-01# -.129804703974516+00# 
-.775991450068196-05# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.352007899144496+01# -.804597169680466+01# -.400999921654306-03# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# O.O* 0,0# -.352007699144496+01# -.804597169660466+01# 
-.480999921654386-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.227156062024366+00# -.519218815898056+00# -.310396580027276-04# 0.0# 0.0# 0.0# 

0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# -.154105748859956+01# -.352245076504126+01# 
-.210577243602426-03# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.139619297482666+01# -.31913287133716+01# -.190782284470936-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.14686252317136+01# -.335668973920616+01# 

-.200679764036676-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.119256932562796+01# -.272589870346476+01# -.162958204514326-03# 0,0# 0,0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0* -.685317258118036+00# -.156645441069666+01# 
-.936449290667366-04# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.9009859391426+00# -.205941610491536+01# -.123114896044126-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.793151598630016+00* -.181293525780596+01# 

-.108379913555436-03# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 

0.0# -.130614735664016+01# -.298550819141386+01# -.178476033515666-03# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.102359025723916+02# -.233965722328586+02# 
-.139868120762166-02* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.102359025723916+02# -.233965722320586+02# -.139868120782166-02# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.102359025723916+02# -.233965722328586+02# 
-.139868120782166-02# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.454312124048726+00# -.103043763179616+01# -.620793160054556-04# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# O.O* -.271677419415496+01# -.620962890606576+01# 
-.371232627937356-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 

0,0# -.538060359930096+00# -.122986399955566+01# -.735230634314456-04# 0,0# 0,0# 0.0# 

0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# -.56769015506096-01# -.129804703974516+00# 
-.775991450066196-05# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# -.56789015506096-01# -.129004703974516+00# -.775991450068196-05# 0,0# 0.0# 0,0# 0,0# 0.0# 0,0# 0.0# 

0,0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 0,0* -.193373822830376+01# -.442001531550146+01# 

-.264234961367276-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 110060562098646+01# -.251569402201576+01# -.150391857328626-03# 0.0# 0.0# 0.0# 

0.0# 0.0# 0,0# 0.0# 0,0# 0,0# 0.0# 0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0.0# -.511101139554816+00# -.116834233577066+01# 
-.698392305061376-04# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 0.0# 0,0# 0,0* 0.0# 0.0# 0.0# 0.0# 0.0* 0,0# 0.0# 

0.0# -.56789015506096-01# -.129804703974516+00# -.775991450068196-05# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 

0,0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# -.194529104532446+01# -.44464220066566+01# 

-.265613591873966-03# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.194529104532446+01# -.44464220066566+01# -.265813591673966-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0,0# 0,0# 0,0# 0,0# 0,0# 0,0# 0.0# 0.0# 0,0# 0.0# -.56789015506096+00# -.129804703974516+01# 

-.775991450068166-04# 0.0# 0.0* 0.0# 0.0# 0.0* 0.0# O.O# O.O# O.O# O.O# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 

0.0# -.260377005113266+01# -.595153308323316+01# -.355791326968686-03# 0.0# 0.0# 0.0# 

0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# O.O# O.O# -.275675920918596+01# -.630122409920996+01# 
-.376696365865966-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.764941790266256-01# -.174045507980426+00# -.104525194486396-04# 0.0# 0.0# 0.0# 

0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0,0# 0.0# 0,0# -.1533303418664<.E + 01» -.3 50472700731186 + 01# 
-.209517691518416-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 

0.0# -.105535107373016+01# -.241225589733616+01# -.144208175389156-03# 0,0# 0,0# 0,0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.16622914944766+01# -.364527443366226+01# 
-.229876113294716-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.13688216841046+01# -.312876516550916+01# -.187042144341936-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.164688144967666+01# -.376433641526086+01# 

-.225037520519776-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0* 0.0# 
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APPENDIX E 


BLOCK, BLK (Cont.) 


0.0# -.170^368B537888E*02» 38<35737^5l2983E+02> 

0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.2328928660791SE>02# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.17043688537888E*02# -. 38957374512983E+02# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 * 
>.10863860300955E-03* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 
0.0# -.4604210560629E+01# -. 1052A010383569E+02# -. 6291 406881 2807F-03# 
0.0* 0.0* 0.0# 0.0* 0.0* 0.0* 0.0# 0.0* 0.0# 0.0# 
-.29990031834347E-03# 0.0* 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.5678901550609E-01# -.12980470397451E+00# -.77599145006819F-05# 
0.0* 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.77599145006819E-05# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 
0.0* -.78289478191508E+00* -. 1 7894908 8 1 362 1 E^Ol # 

0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 * 
>.4841634321227SE-04# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 
0.0# -.85183523259136E400# -. 1 9470705 5961 77E+01 # 

0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 
>.77599145006819E-05* 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.65722012210782E+01* -.15022317720431E402# 

0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.89805606070727E-03* 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 
0.0# -.90862424809745E400# -.20768752635922E401# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 
-.13967846101227E-03# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0* -.51093482524006E401# -. 11 6786 21 85 1 341 E 402# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 
-•69816504546702E-03# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0,0# -.2406396384765E+01# -. 5 5003871 36 24 57 E*0 I# “. 3288 211 6434161E-0 3# 
0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 
-.81892864052374E>03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0,0# -.59931267620278E+01# -. 1 36987063 1 3078F+02 * 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 
-.15519829001364E-03# 0.0* 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# >.35200789914449E401* •. 80459716968046E401# 

0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 
-.4e099992165436E-03# 0.0* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 
0.0# -.15410574885995E*01» -. 35224507650412E+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
*.210S7724360242E*03# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0* “,1468625231713E*01» -.33568897392061E+01# -.200679764036676-03# 
0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.51881726935086E-03# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.379683589959726401# -.86785649582911E+01# 

0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 * 
-.51861726935086E-03# 0*0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.10235902572391E402# -.23396572232858E+02# 

0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 
-.13986812078216E-02# 0.0# 0.0# 0.0# 0*0# 0.0# 0*0# 0.0# 0*0# 0.0* 
0,0* -.10235902572391E*02* 233965722328586402. 

0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 * 0 # 
-.16500247145445E-02# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.120752978775056+02# -. 27600944521137E+02# 

0.0# 0*0# 0.0# 0.0# 0*0# 0*0# 0*0# 0.0# 0*0# 0*0# 0*0# 0.0# 0.0# 0.0# 
-.165002471454456-02# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 
0.0# -.810452693808186+01# -.185248099597426+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 
-.110744015453566-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.147651440315836+01# -.337492230333736+01# 

0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 
-.857861408861596-03* 0.0* 0.0* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.471535619838076+01# -. 107780599823846+02# 

0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 
-.355791326968686-03# 0.0* 0.0# 0.0# 0.0* 0,0# 0.0# 0,0# 0.0# 0.0# 
0.0# -.275675920918596+01* -.630122409920996+01# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 
-.376696365665966-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.311135403600826+01# -.71117343029246+01# -.425149047829036-03# 
0.0# 0*0# 0*0# 0.0# 0.0# 0.0* 0.0* 0*0# 0.0# 0.0# 
-.868385200512166-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.635506236735116+01# -.145259955993626+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 
-.232892866079156-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 
0.0# -.170436885378886+02# -.389573745129836*02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0*0# 0*0# 0.0* 0.0# 
-.232892866079156-02# 0.0# 0,0* 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.199462510121566+02# -.455918664016386+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0* 0.0# 0.0# 0.0* 0.0# 0*0# 0.0* 
-.272554826112226-02# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.199462510121566+02# -.455918664016386+02# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.163131177487016-02# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.134020024022746+02# -.306334409742736+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.183131177487016-02# 0.0# 0.0# 0*0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.657220122107626+01* -.150223177204316+02# 

0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 
-.896056060707276-03# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.657220122107826+01# -.150223177204316+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0* 0.0# 0.0* 
-.578600214962376-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.423434260473346+01# -.967858983706336+01# 

0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.5121543570456-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.58154657397586+01# -.132926200973196+02# -.794652214341126-03# 0,0# 
0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.58154657397586+01# 

0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.869691516629236+01# -.519914271545686-03# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# 0.0# 0.0# -.630935485092076+01# -.144215202780916+02# 


-.232892866079156-02* 0,0# 0.0# 0.0* 
-.170436885378886*02# -.389573745129836+02* 
0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.232892866079156-02* 0.0* 0.0# 0.0# 
-.795046217085266+00* -.181726585564326+01# 
0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.219474632448496+01* -.501661094861486+01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.56789015506096-01# -.129804703974516+00# 
0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.106970374542166-03* 0.0# 0.0# 0.0# 
-.354323036057746+00# -.809888961746366+00# 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 * 
-.116390717510236-03* 0.0* 0.0# 0.0# 
-.56789015506096-01# -.129804703974516+00# 
0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 
-.898056060707276-03# 0.0# 0.0# 0.0# 
-.657220122107826+01# - . 1 50 22 31 77 20 43 16 +02# 
0 * 0 # 0 . 0 * 0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 
-.124156632010916-03# 0.0# 0.0# 0.0# 
-.102220227910966+01# -.233648467154126+01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 
-.698165045467026-03* 0.0* 0.0# 0.0# 
-.510934825240066+01# -.116786218513416+02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.599312676202786+01# -.136987063130786+02# 
0 . 0 # 0 . 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 * 
-.818928640523746-03# 0.0* 0.0# 0.0# 
-.113578031012186+01# -.259609407949026+01# 
0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.480999921654386-03# 0,0# 0.0# 0.0# 
-.352007899144496+01# -.804597169680466+01# 
0 . 0 # 0 * 0 * 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.210577243602426-03# 0.0# 0.0# 0.0# 
-.154105748859956+01# -.352245076504126+01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.379683589959726+01# -.867856495829116+01# 
0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.510817269350866-03# 0.0# 0.0# 0.0* 
-.379603589959726+01# -.867856495829116+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 
-.139868120782166-02# 0.0# 0.0* 0.0# 
-♦102359025723916+02# -.233965722328586+02# 
0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.139868120782166-02# 0.0# 0.0# 0.0* 
-.120752978775056+02# -.276009445211376+02# 
0.0# 0*0# 0*0# 0*0# 0*0# 0*0# 0.0# 
-.165002471454456-02# 0.0# 0.0# 0.0# 

120752978775056+02# -.276009445211376+02# 
0.0# 0*0# 0*0# 0.0# 0*0# 0.0# 0.0# 
-.110744015453566-02# 0.0# 0,0# 0.0# 
-.810452693808186+01# -.185248099597426+02# 
0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 
-.201757777017736-03# 0.0# 0.0# 0.0# 
-.627804660033786+01# -.143499578788726+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.644328143631416-03# 0.0# 0.0# 0.0# 
-.260377085113266+01# -.595153308323316+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.376696365865966-03# 0.0# 0.0# 0.0# 
-.275675920918596+01# -.630122409920996+01# 
0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.635506236735116+01# -.145259955993626+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.866385200512186-03# 0.0# 0.0# 0.0# 
-.170436885378886+02# -. 3 895 737451298 36 +02 » 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0* 
-.232892066079156-02* 0,0* 0.0* 0.0# 
-.170436885378886+02# -.389573745129836+02# 
0.0* 0*0# 0.0# 0*0# 0.0# 0.0* 0.0* 
-.272554826112226-02# 0.0# 0.0# 0.0# 
-.199462510121566+02* -.455918664016386+02* 
0.0* 0.0* 0.0* 0.0# 0.0# 0.0# 0.0# 
-.272554826112226-02* 0.0* 0,0* 0.0* 

134020024022746+02* -.306334409742736+02# 
0.0# 0.0# 0*0# 0.0# 0.0# 0.0* 0*0# 
-.183131177487016-02# 0.0# 0.0# 0.0# 
-.134020024022746+02# -.306334409742736+02# 
0*0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 
-.898056060707276-03# 0.0# 0.0# 0.0# 
-.657220122107826+01# - . 1 5022 3 1 77 2043 1 6 +02# 
0.0# 0.0# 0,0# 0.0# 0.0* 0.0# 0.0* 
-.898056060707276-03# 0.0# 0.0# 0.0# 
-.423434260473346+01 # -.967058983706336+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.570600214962376-03* 0.0# 0.0# 0.0# 
-.37480750234026+01# -.856711046231786+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 

0.0# 0.0# 0.0* 0.0* 0.0# 0.0# 0.0# 

-.132926200973196+02# -.794652214341126-03# 
0.0* 0.0* 0.0# -.380466403890816+01# 

0.0# 0.0* 0.0* 0.0# 0.0# 0.0# 0.0* 

-.062139513447926-03* 0.0* 0.0* 0.0* 



APPENDIX E 


BLOCK, BLK (Cont.) 


O.Of 0«0> 0*0> 0*0p 0»0 p 0»0p 0.0> 0*0> OtOt 0.0» 0*0» 0.0> 0*0p 0.0» 
-.86213951344792E-03# 0.0» 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0, 
0.0# -.38616530544U16 + 01# -. 88267198702667E+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.59939021<*20113E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# “.43864890734912E+01# -. 100263 5651 6268 E t02 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.1787233713441E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 

0.0# -.13079428008735E+02# -.29896121031499E+02# -. 178723371 3441E-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

«.17872337134<.lE-02# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# -.13590424<*68372E+02# 3106^1240966E+02# -. 1 8 5705863 99975 E-02 # 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.18570586399975E-02# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.1359042«*468372E^02# -.3106-^1240966E+02# -. 18570586399975E-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.13132483160074E»02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.96106830929793E+01# 21967485485696E *02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.1313248318007AE-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0,0# 
0.0# -.6099797786953B+01# -.13942528127731E+02# -. 833 50466<rl 7449E-03# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.83350466417449E-03# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0,0# -.6099797786953E+01# -. 1 3942 52 81 27731 E +02# 833 5046641 7449E -03# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.45980220762463E-03# 0,0# 0,0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 
0.0# “.33649487628034F+01# -. 76913849298594E+01# 

0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 
-.57423367305046E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.33922024711071E*01# -.77536797153394E+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.22629639839566E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 
0.0# -.42591761629568E+01# -.97353527980884E+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.31949342706223E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 
0.0# -.23381336460695E+01# -. 53443565287435E+01# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.58975350205182E-03# 0,0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0,0# 
0.0# -.90409101759437E+01# -. 206651 349489E*02# -. 12353919036709E-02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.14266649609551E-02# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.61409004012701E»01# -. 140364 77 857912 E +02 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.22810275078178E-03# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0.0# 0,0# 
0.0# -.68763036105201E+01# -. 1 571 741 5 536226E+02# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 , 0 # 0 , 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.24496914423032E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 
0.0# -.20937238314738E+02# 47857001 87383 8 E+02 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.19671376004124E-02# 0,0# 0.0# 0.0# 0,0# 0,0# 0.0# 0.0# 0,0# 0.0# 
0.0# -.53422322056049E+01# -. 12 21 0933 1 1 5001 E+02 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.51354928882787E-04# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0,0# 
0,0# -.11427774327876E+02# -.2612087655505E+02# 15615440931159E-02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.40677115198101E-02# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.34679750453151E+02# -.79268758251293E+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.31750042438881E-02# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 
0.0# -.12001902345765E+02# -.27433181703174E+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.10620990750918E-02# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.10199093495903E+02# 2331 24 363971 77E *02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.14991209145883E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.78355776974178E+01# -. 1791 0062965848 E +02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.30981762140136E-02# 0,0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.2355279413031E+02# - . 5 3835 472275966E +02# 32183630421233E-02# 

0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 0.0# 0.0# 
-.22842836973763E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.10603418168104E+02# -. 24236615904728E+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.76223749835193E-03# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 
0,0# -.1556777949969E+01# -. 35583835914202E+01# -. 212725360365E-03# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.26564314869906E-03# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.10202676605667E+02# -.23320626440587E+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 
-•47634391018545E-02# 0.0# 0.0# 0.0# 0*0# 0.0# 0«0# 0.0# 0.0# 0.0# 
0.0# -.39297ei5626408E+02# -.898244370805262+02# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 
-•33832811977516E-02# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.20530237933478E+02# -.46926706401445E+02# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-.1608204754458E-02# 0,0# 0,0# 0.0# 0.0# 0,0# 0.0# 0,0# 0.0# 0.0# 

0.0# -.14308978335601E+01# -. 32 70654862 52 57E +01 » 

0.0# 0*0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.47476129130125E-02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.6ie08258508478E+01» -.141277369001278+02# 

0.0# 0*0# 0*0# 0*0# 0*0# 0.0# 0.0# 0.0# 0*0# 0*0# 0*0# 0.0# 0.0# 0*0# 
-.54800976621525E-02# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.59392300533917E+02# -.135755126593868+03# 

0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 0.0* 0.0# 0.0# 
-.608310749164818-03# 0.0# 0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# -.79851097897204E+01# - . 1 8251 8 53870 3 57E +02 # 

0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 0 . 0 # 

-.16647104957838E-03# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 


-.630935485092078+01# - . 1 44 2 1 5 20278091 E +02 # 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.52767418604636E-03# 0.0# 0.0# 0.0# 
-.43864890734912E+01# -.100263565162688+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.599390214201138-03# 0.0# 0.0# 0.0# 
-.13079428008735E+02# -.298961210314998+02# 
0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.1307942800873 5 E+02# -.298961 21031 499E +02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0,0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.135904244683728+02# -.310641240966E+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0*0# 0*0# 0.0# 0.0# 

-.961068309297938+01# -.219674854856968+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.131324631800748-02# 0.0# 0.0# 0.0# 
-,96106830929793F+01f -.219674854856968+02# 
0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0,0# 

0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

-. 6099797786953 E +01# -.1394 2 5 28 12 77 31 E+02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 

-.336494876280348+01# -. 7691 3849298 594E + 01 # 
0 * 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.45980220762463E-03# 0.0# 0.0# 0.0# 
-.420238714745078+01# -.960554809411398+01# 
0 . 0 # 0 * 0 # 0 . 0 * 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.463526280746498-03# 0,0# 0.0# 0.0# 
-.165609423613298+01# -. 3 78 539441 4031 9E +01 # 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 
-.581993587551148-03# 0.0# 0.0# 0.0# 
-.233013364606958+01# -. 534 435652 8743 5E +01# 
0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 0 * 0 # 
-.319493427082238-03# 0.0# 0.0# 0.0# 

-.431 596517846288+01# -.986515750206298+01# 
0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 

0 * 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.104406947502528+02# -.238646731109368+02# 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
-.039121116O5366E-O3# 0,0# 0.0# 0.0# 

-. 166931 3579420 3E +01# -.38156103444696E+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.939610021012118-03# 0.0# 0.0# 0.0# 
-.179274610937888+02# -.40977445366069E+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.286096136294788-02# 0.0# 0.0# 0.0# 
-.143960101213258+02# -. 3 29054803 21 494E +02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.729987389090018-03# 0.0# 0,0# 0,0# 
-.37582834067349E+OO# -.8590444315698+00# 
0.0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.297685409400088+02# -.680430292932048+02# 
0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 
-.473000196765478-02# 0.0# 0.0# 0,0# 
-.232354834866068+02# -. 531 101 8387631 0£ +02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.16399956086345E-02# 0.0# 0,0# 0,0# 
-.777270945950388+01# -.177663627636338+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0* 
-.139365144486758-02# 0,0# 0.0# 0.0# 
-.109709457309848+02# -.2 50 76606930 38 2E +02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.10706896827414F-02# 0,0# 0,0# 0.0# 
-.226732365469698+02# -.510250357379028+02# 
0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.16716965412348+02# -. 3821 05 71 663603 E+02# 
0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.14409OO24358O4E-O2# 0.0# 0,0# 0.0# 
-.557024665586558+01# -.127 50 399868 850E+O2# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.194404369909398+01# -. 444 35709023 22 3E +01 » 
0,0# 0.0# 0.0* 0.0# 0.0# 0.0# 0.0# 
-.139414105760638-02# 0.0# 0.0# 0,0# 

-.3 500641 6 282 523E +02# -.8001 54301 3673 2E +02# 
0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0*0# 
-•53690350416473E-O2# 0.0# 0.0# 0.0# 
-,247597O6073535E+O2# -, 56594 1563 271 2E +02# 
0*0# 0.0# 0,0# 0.0# 0,0# 0,0# 0,0# 
-.28053469429376E-02# 0.0# 0.0# 0.0# 
-.1176924804O280E+O2# -.269013971822098+02# 
0.0# 0,0# 0.0* 0.0# 0.0# 0.0# 0.0# 
-.195524517350488-03# 0,0# 0.0# 0.0# 
-.347442311781E+02# -. 794 16'14 41 733688 +02 # 
0.0# 0.0# 0.0# 0.0* 0.0# 0.0* 0.0# 
-.844576714682428-03# 0.0# 0.0# 0.0# 
-.401047396957178+02# -. 91668 8 5 2 1 14 88 E+02 # 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.811563944250048-02# 0.0# 0.0# 0.0# 
-.445177180287328+01# - . 1 01 755756O0844E + 02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 
-.10911224414542F-02# 0.0# 0.0# 0.0# 

-. 121 82772 136202E +01# -.278 466023162368+01# 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 



APPENDIX E 


BLOCK, BLK (Cone. ) 


OICOUNT 

OtENO 


0.0» -.12321322427176E+02# - 
0.0* O.Of 0.0* 0,0* O.Of 0.0 
-.4390785327^<)02E-02» 0.0» 0 
0.0# -.37523259761979E+02# - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
•.3^349742US504E-02« 0.0* 0 
0.0* -.1200922871fl856E+02* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.82602926459693E'02* 0.0* 0 
0.0* -.63915381504^72£+01* • 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.1552959^7-^35018-02* 0.0* 0 
0.0* -.38410666260«95E*01* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.16««6634197198E-02* 0.0* 0 
0.0* -«33^12410655729E*02* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.543306166509046-02* 0.0* 0 
0.0* -.27954965008333E+02* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.172211050396668-02* 0.0* 0 
0.0* -.25496659894377E+01* - 


281632917207836402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
857682701666888402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
274499278587798402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
146093696142968402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * o;o 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
877966472736728401* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
763719538997228402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
638976732592828402* 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 
58278636465778401* -.3483 


0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 





-.696555042924258401* -. 

1592141021 

-.951805121103278-03* 0. 

0* 0. 

0* 0. 

0* 0. 

0* 0. 

0* 0. 

0* 0. 

0* 0. 

0* 0. 

0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0«0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

O.Of 

0.0* 

0.0* 

0.0* 

0.0* 

b.o* 

0.0* 

0.0* 

O.Of 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

O.Of 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 


0 . 0 * 0 . 0 * 0 . 0 * 
0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 

0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 

0 * 0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 0 . 0 * 
0 * 0 . 0 * 0 . 0 * 
98187695498-03* 


-.168364265022288-02* 0 
-.321328767249748402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.512735226953548-02* 0 
-.251380094350258402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.164099671823798-02* 0 
-.604509106992588402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.873369420711258-03* 0 
-.113649206451168402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.524861160982278-03* 0 
-.120360625669998402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.456562677904368-02* 0 
-.397605183816468402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
-.381989609083738-02* 0 
-.126028399029878402* - 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 


0 * 0 . 0 * 0 . 0 * 
734472769771378402* 
0 . 0 * 0 . 0 * 

0 * 0 . 0 * 0 . 0 * 
57458856156291E402* 
0 . 0 * 0 . 0 * 

0* 0.0* 0.0* 
138174830086038403* 
0 . 0 * 0 . 0 * 

0 * 0 . 0 * 0 . 0 * 
259772096220778402* 
0 . 0 * 0 . 0 * 

0 * 0 . 0 * 0 . 0 * 
275112629547246402* 
0 . 0 * 0 . 0 * 

0 * 0 . 0 * 0 . 0 * 
908820530239558402* 
0 . 0 * 0 . 0 * . 

0 * 0 . 0 * 0 . 0 * 
28806766383728402* 
0 . 0 * 0 . 0 * 

0 . 0 * 0 . 0 * 
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APPENDIX E 


SPFPOUT 


Rod data 


Beam data • 


{ I 


23 


SECTION PROPERTIES 
10.657 “ 


E21 
DSY 1 


SECTION PROPERTIES 

60393.3008 0.0000 


• Cross-sectional 
area, cm^ (inverse)- 


Membrane data 


366.16588 
0.0000 
21.1677 
SHELL SECTION 
1 .125, 


0.00000 

0.0000 

6.0122 

PROPERTIES 


3035.1865 0.0000 

7.56862 0.00000 

0.0000 -10.9297 

-21.1677 -10.9297 


167.6650!^ 

0.00000 

.1677 

,1677 


6.0122T„ 


-Thickness, cm 
(inverse) 


(See ref. 5 for more details.) 
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APPENDIX E 


RSOUT (nonrepeatable part) 


[XOT TAB 
UPDATE-1 
BC 

2 1.0 

BA 

DSY ? 1.0 0,0 0.0 0.0 0.0 0,0 0,0 0,0 0.0 0.0 
0,0 0,0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0,0 0.0 
DSY 3 0.0 0.0 1.0 0.0 0.0 0,0 0.0 0.0 0.0 0.0 
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 
DSY A 0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0,0 0.0 
0.0 0.0 0.0 0,0 0.0 0.0 0.0 0,0 0.0 0.0 0.0 
DSY 5 0.0 0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 
SA 

2 1,0 
UPDATE-0 
CXOT DCU 


COPY 1,2 


DISABLE 

1»DEF 

E23 

DISABLE 

l.DEF 

E21 

DISABLE 

1>DEF 

EAl 

DISABLE 

1#GD F,23 

DISABLE 

1»GD E21 

DISABLE 

1»GD EAl 

DISABLE 

IfGTIT 

E23 

DISABLE 

1>GTIT 

E21 

DISABLE 

l.GTIT 

EAl 

DISABLE 

1»DIP 

E23 

DISABLE 

1»DIP 

E21 

DISABLE 

1»DIR 

EAl 

DISABLE 

1»NS 


DISABLE 

1»ELTS 

NAME 

DISABLE 

1>ELTS 

NNOD 

DISABLE 
[XOT ELD 

l.ELTS 

ISCT 

E23 $ROD 

EEMENTS 

NSECT- 2 
NPEF-2 
1 17 1 A 
A 20$ 

5 21$ 

3 1 $ 


t 22$ 



52 68$ 

53 69$ 

5A 70$ 

7 23 1 A 
[XOT E 
[XQT EKS 

10 1$ 



rXQT TOPO 
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RSOUT (nonrepeatable part cont. ) 


PESFT MAXSUB«2500 
CXQT K 
CXQT DCU 

DISABLE 1>DEF E23 
DISABLE 1»GD E23 
DISABLE liGTIT E23 
DISABLE 1»ELTS MASK 
DISABLE 1»NS 
DISABLE 1»KMAP 
DISABLE IfAMAP 
DISABLE 1»E23 EFIL 
DISABLE 1»DIR E23 
COPY 1,2 DEM DIAG 0 0 
CHANGE 2, DEM DIAG 0 0,DMDV DIAG 0 1 
COPY 1,2 K SPAR 25 0 
CHANGE 2,K SPAR 25 0,DKDV SPAR 25 1 
CXQT ELD 
E21 

NSECT- 2 
NREF»1 

1 2 2 16 2 16 $ 

A9 50 2 16 2 16S 

33 3A$ 

34 35$ 

39 40$ 

40 41$ 

41 42$ 

42 43$ 

43 44$ 

44 45$ 

45 46$ 

46 47$ 

47 48$ 

48 33$ 

CXQT E 
[XQT EKS 
CXQT TOPO 

RESET MAXSUB-2500 
CXQT K 
CXQT DCU 

DISABLE 1,DEF E21 
DISABLE 1,GD E21 
DISABLE 1,GTIT E21 
DISABLE 1,ELTS MASK 
DISABLE 1,NS 
DISABLE 1,KMAP 
DISABLE 1,AMAP 
DISABLE 1,E21 EFIL 
DTSARIF l.niR E21 
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RSOUT (nonrepeatable part cont. ) 


COPY IfZ DEM DIAG 0 0 

CHANGE 2>DEM DIAG 0 0#DMIX DIAG 0 2 

COPY 1,2 K SPAR 25 0 

CHANGE 2>K SPAR 25 0#DKIX SPAR 25 2 

CXQT ELD 

E21 

NSECT« 3 
NREF-1 

1 2 2 16 2 16 $ 

A9 50 2 16 2 16$ 

33 3A$ 

34 35$ 

39 40$ 

40 41$ 

41 42$ 

42 43$ 

43 44$ 

44 45$ 

45 46$ 

46 47$ 

47 48$ 

48 33$ 

CXQT E 
[XOT EKS 
CXQT TOPO 

RESET MAXSUB«2500 
CXQT K 
CXQT DCU 

DISABLE 1»DEF E21 
DISABLE 1»GD E21 
DISABLE IfGTIT E21 
DISABLE 1»ELTS MASK 
DISABLE l^NS 
DISABLE l^KMAP 
DISABLE IfAMAP 
DISABLE 1#E21 EFIL 
DISABLE 1>DIR E21 
COPY 1,2 DEM DIAG 0 0 
CHANGE 2, DEM DIAG 0 0,DMIY DIAG 0 2 
COPY 1,2 K SPAR 25 0 
CHANGE 2,K SPAR 25 0,DKIY SPAR 25 2 
CXQT ELD 
E21 

MSECT« 4 
NREF*1 

1 2 2 16 2 16 $ 

49 50 2 16 2 16$ 

33 34$ 

34 35$ 
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RSOUT (nonrepeatable part cont. ) 


39 ^0$ 
AO Al$ 
A1 A2$ 
A2 43$ 
43 44$ 


44 45$ 

45 46$ 

46 47$ 

47 48$ 

48 33$ 
rXOT E 
[XOT EKS 
CXOT TOPO 


RESET MAXSU8«2500 
CXQT K 
CXOT DCU 

DISABLE 1,DEF E21 
DISABLE 1,GD F21 
DISABLE 1,GTIT E21 
DISABLE 1,ELTS MASK 
DISABLE 1,NS 
DISABLE IfKMAP 
DISABLE ItAMAP 
DISABLE 1,E21 EFIL 
DISABLE l^DIR E21 
COPY 1,2 DEM DIAG 0 0 


CHANGE 2, DEM DIAG 0 0,DMDA DIAG 0 2 
COPY 1,2 K SPAR 25 0 
CHANGE 2,K SPAR 25 0,DKDA SPAR 25 2 
CXOT ELD 


E21 

NSECT« 5 
NREF*1 

1 2 2 16 2 16 $ 
49 50 2 16 2 16$ 

33 34$ 

34 35$ 


39 40$ 

40 41$ 

41 42$ 

42 43$ 

43 44$ 

44 45$ 

45 46$ 


46 47$ 

47 48$ 

48 33$ 
CXQT E 
CXOT EKS 



APPENDIX E 


RSOUT (nonrepeatable part cone. ) 


eXQT TOPO 
RESET MAXSUe*2500 
eXQT K 
eXOT DCU 

DISABLE 1»DEF E21 
DISABLE 1,GD E21 
DISABLE 1»GTIT E21 
DISABLE 1>ELTS MASK 
DISABLE l^NS 
DISABLE 1»KMAP 
DISABLE l^AMAP 
DISABLE 1 jE 21 EFIL 
DISABLE IfDIR E21 
COPY 1>2 DEM DIAG 0 0 
CHANGE 2>DFM DIAG 0 0»DMJ0 DIAG 0 2 
COPY 1,2 K SPAR 25 0 
CHANGE 2,K SPAR 25 0,DKJ0 SPAR 25 2 
rXQT ELD 

EAl $ MEMBANE PANELS 
NSECT- 2 

1 17 18 2 2 16 1 $ 

A9 65 66 50 2 16 1* 

17 33 3A 18 1 1 2 2 16$ 

23 39 ^0 2A 1 1 9 2 16$ 

32 A8 33 17$ 

48 64 49 33$ 

eXQT E 

eXOT EKS 

IXQT TOPO 

RESET MAXSUB-2500 

eXQT K 

CXCT DCU 

DISABLE 1,DFF E41 
DISABLE 1,GD E41 
DISABLE 1,GTIT E41 
DISABLE 1,ELTS MASK 
DISABLE 1,NS 
DISABLE 1,KMAP 
DISABLE 1,AMAP 
DISABLE 1,E41 EFIL 
DISABLE 1,DIR E41 
COPY 1,2 DEM DIAG 0 0 
CHANGE 2,DEM DIAG 0 0,DMDV DIAG 0 3 
COPY 1,2 K SPAR 25 0 
CHANGE 2,K SPAR 25 0,DKDV SPAR 25 3 
TOC 2 
exOT EXIT 
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RSOUT (repeatable part) 


CXQT AUS 


DEFINE 

A1«DKDA 

SPAR 

25 

2 

DEFINE 

A2-DKIX 

SPAR 

25 

2 

DEFINE 

A3-DKIY 

SPAR 

25 

2 

DEFINE 

AA»DKJO 

SPAR 

25 

2 

DEFINE 

B1«DMDA 

DIAG 

0 

2 

DEFINE 

B2«DMIX 

DIAG 

0 

2 

DEFINE 

B3»DMIY 

DIAG 

0 

2 

DEFINE 

BA-DMJO 

DIAG 

0 

2 


S1«SUM( .10000+01 Al» .31119+03 A2) 

S2«SUM( .23383+02 A3> .26667+01 AA) 

OKDV SPAR 25 2«SUM(S1#S2) 

T1»SUM( .10000+01 Bl# .31119+03 B2) 

T2«SUM( .23383+02 B3» .26667+01 BA) 

DMDV OIAG 0 2*SUM(T1,T2) 

[XOT DCU 
TQC 1 
[XOT AUS 
SYSVPC;UNIT VEC 
I-lJ J-1, 80; 1.0 
DEFINF UN-UNIT VEC 

DEFINE Wl-DMDV DIAG 0 1 

DEFINE W2-0NDV DIAG 0 2 

DEFINE W3-0MDV DIAG 0 3 

OBJF G1 1 1«XTY(UN,W1) 

OBJF G2 1 1-XTY(UN,W2) 

OBJF G3 1 1-XTY(UN»W3) 

CXOT DCU 
PRINT 1 OBJF G1 

PRINT 1 OBJF G2 

PRINT 1 OBJF G3 

CXQT AUS 
OUTLIB-3 

DEFINE F1«STAT DISP 1 1 
DEFINE Ll-DKDV SPAR 25 1 
DEFINE L2»DKDV SPAR 25 2 
DEFINE L3»DKDV SPAR 25 3 
ALPHA} CASE TITLE 100 

1 ’’LOAD CASE 1 DERIVATIVE 1 DESIGN VARIABLE 1 

2 "LOAD CASE 1 DERIVATIVE 1 DESIGN VARIABLE 2 

3 "LOAD CASE 1 DERIVATIVE 1 DESIGN VARIABLE 3 

OUTLIB-A 

APPL FORC 100 !• PR0DUCT(-1.0 Ll»1.0 FI) 

APPL FORC 100 2- PR0DUCT(-1.0 L2,1.0 FI) 

APPL FORC 100 3- PR0DUCT(-1.0 L3,1.0 FI) 

INLIB-A 

OUTLIB-3 

DEFINE Z1«APPL FORC 100 1 
DEFINF Z2«APPL FORC 100 2 



APPENDIX E 


RSOUT (repeatable part cone. 


DEFINE Z3-APPL FORC 100 3 
Z11«UNI0N(Z1 11 Z3) 

INLIB«3 

Z12«UNI0N(Z11 ) 

DEFINE Z10-Z12 
INLIB-4 

APPL FORC 100 1«UNI0N(Z10) 
eXOT SSOL 
RESET L1»1»L2« 3 
RESET QLIB-3 
RESET SET-100 
rXQT VPRT 
LIB-3 

PRINT APPL FORC 100 
PRINT STAT DISP 100 
eXQT GSF 

RESET L1-1#L2- 3 
RESET QLIB-3 
RESET SET-100 
eXQT PSF 

RESET L1-1»L2- 3 
RESET QLIB-3 
RESET SET-100 
rxOT DCU 

CHANGE 3, STAT DISP 100 1»DDIS DISP 100 1 


CHANGE 3>STRS 

E23 

100 

1,DSTR 

E23 

100 

1 

COPY 3,4 DSTP 

E23 

100 

1 




CHANGE 3,STRS 

E21 

100 

1,DFAM 

E21 

100 

1 

COPY 3,4 DFAM 

E21 

100 

1 




CHANGE 3,STRS 

E41 

100 

1,DSTR 

E41 

100 

1 

COPY 3,4 DSTP 

E41 

100 

1 




CHANGE 3,STRS 

E23 

100 

2, DSTR 

E23 

100 

2 

COPY 3,4 DSTR 

E23 

100 

2 




CHANGE 3,STRS 

E21 

100 

2, DFAM 

E21 

100 

2 

COPY 3,4 DFAM 

E21 

100 

2 




CHANGE 3,STRS 

E41 

100 

2, DSTR 

E41 

100 

2 

COPY 3,4 DSTR 

E41 

100 

2 




CHANGE 3,STRS 

E23 

100 

3, DSTR 

E23 

100 

3 

COPY 3,4 DSTR 

E23 

100 

3 




change 3,STRS 

E21 

100 

3, DFAM 

E21 

100 

3 

COPY 3,4 DFAM 

E21 

100 

3 




CHANGE 3,STRS 

E41 

100 

3, DSTR 

E41 

100 

3 

COPY 3,4 DSTR 

E41 

100 

3 




COPY 1,4 OBJF 

G1 






COPY 1,4 OBJF 

G2 






COPY 1,4 OBJF 

G3 







TOC 3 
TOC 1 
TOC 4 
[XOT EXIT 
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O "50 rn 


APPENDIX E 


EDIT DATA FILES 


EDPASS1 


A 

> SPASSAGE 

NPASS«1» Creates PASS file, setting NPAS9 to 1 for first pass 

$END> 


EDPASS2 


R S W 2 / > / 1 / 
END 


Changes NPASS from 2 to 1 when restarting 


EDITI 


Fi/CXQT ELO/ 

Fl/tXQT/j2 
D J* 

R 

Fl/CXCT ELD/ Edits out all information from NRRS file except 

• ♦ ELD input in nonrepeatable part 

i* 

ADD 

$ 

END 


EDIT2 


PS:/ / , / / ,• * 

PS:/ / , / / } * 

A : /TOPO/ ;♦ 

>RFSET MAXSUB»?500> 
END 


Removes blanks from RSOUT file 
in nonrepeatable part 
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MERGFP 


SPFPOUT file is merged into 
SPARS. E+ and E- are changed 
to + and - because SPAR does not 
accept E's in input 


EDGRDS 


RSi/E+Z^/t/j* 

RSI/. ./>/. ,/J* 

RSi/. 0/#/. 0/J* 

RS:/. “/;♦ 

RSI/ f»/ fi* 

RSI /E-/> /-/;♦ 

RSI/ /W /J* 

RSW /»/ /;* 

RSI/ W /#/ W/jl- 
RSI/ G /#/ G/J+ 

RSi/#W /#/#W/|* 

RSl/ F />/ F/J+ 

PSi/ L />/ L/J» 

END 


(See ref. 10 for more detail on edit commands.) 


Remove blanks from RSOUT in 
repeatable part 


NERGEl /SPFPDUT/, /$ MERGE NEW/Jl 
R 

RSI /E+/>/+/J* 

RSl /E-/» /-/?♦ 

END 
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